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PREFACIO 


¡Usted ya ha examinado con dificultad manuales sobre progra- 
mación en lenguaje máquina Z80 para la Spectrum y se le ha 
dado un conocimiento claro de todas las instrucciones! Pero 
justo cuando empiezan a ponerse interesantes, terminan con 
unos cuantos ejemplos de cómo sumar y restar, y entonces debe 
usted apañárselas por sí mismo. 

Este libro empieza donde terminan ese tipo de libros y le en- 
seña a utilizar los conocimientos que ya tiene sobre las rutinas 
de la Spectrum, para hacer programas de trabajo completos, 
escritos totalmente en código máquina. 

Estudiaremos las rutinas más fáciles, tales como la impre- 
sión, y también las rutinas más complicadas como las de nú- 
meros aleatorios y de cálculo con números de coma flotante. 

El capítulo final le enseña a aplicar la información mostrada 
en el libro, para convertir completamente un programa BASIC 
de juegos en código máquina. 

Los listados en código máquina han sido desarrollado con el 
Ensamblador de McGraw-Hill. No voy a insistir demasiado en 
el hecho de que cualquiera que se tome en serio la escritura de 
programas en lenguaje máquina debe usar un Ensamblador, ya 
que de esa forma se evitará la búsqueda tediosa en tablas, aso- 
ciada normalmente con el lenguaje máquina, y lo que es más 
importante, le ayudará a modificar fácilmente su programa 
cuando se descontrole (lo que sucede a menudo cuando se em- 
pieza). 


IMPRIMIR 
1 con coLorEs 


Aunque la impresión en código máquina es una de las tareas 
más aburridas y que más tiempo lleva, también es una de las 
más importantes. Un buen programa puede estropearse por 
una mala composición, o por una visualización con mensajes de 
entrada ambiguos, y, de igual forma, se puede mejorar un pro- 
grama mediocre con una buena composición. Antes de desarro- 
llar un programa se debe tener muy en cuenta la presentación 
visual. 

La Spectrum tiene 21 gráficos definibles por el usuario 
(UDGs) para hacer un uso completo de ellos. Por ejemplo, si 
usted está desarrollando un juego del tipo invasores del espa- 
cio, no se detenga redefiniendo los invasores, bombas y dis- 
paros; utilice los caracteres que tiene para redefinir los nú- 
meros desde el cero al nueve, para presentar las puntuaciones 
con caracteres futuristas y para crear paisajes interesantes. 
Utilice los colores de forma sensata; no ponga juntos el rojo y 
el magenta (o el amarillo y el blanco); puede ser conveniente 
ejecutar su programa con un aparato en blanco y negro para 
comprobar si aún así se ve bien, ya que muchos propietarios de 
la Spectrum no usan un aparato en color. 

Como cada programa requiere la impresión de información 
en una u otra forma, en este capítulo veremos diferentes mé- 
todos de convertir la instrucción PRINT del BASIC al código 
máquina. 

La primera orden de un programa en BASIC se refiere nor- 
malmente a las asignaciones de las sentencias BORDER, PA- 
PER e INK (colores principales) seguida de CLS para poner 
esos colores en pantalla. 

El color del BORDER (margen) es el más fácil de elegir en 
código máquina, y sólo necesita cinco bytes. En primer lugar 
se carga el registro A con el “número del color” requerido y 
después se hace una llamada a la rutina 8859 d (229Bh) de la 
ROM. Esta rutina selecciona en la pantalla el margen solicitado 


14 BORDER 5: REM verde LLAMADA ESTABLECER MARGEN 
org 23768 23762 CD 9B 22 call 8859 
23760 3E 45 ld a,5 23765 C9 ret 
Programa 1.1 


y almacena el valor del color en la variable BORDCR 23624 del 
sistema (de hecho el valor almacenado es ocho veces el valor del 
color) es decir, los bits 5-3. Los otros bits son utilizados para al- 
macenar los parámetros INK, BRIGHT, y FLASH de la mitad 
inferior de la pantalla (las líneas de entrada). 

El programa 1.1 muestra la versión en código máquina para 
asignación de BORDER 5 (verde). 

Los colores principales para PAPER e INK se mantienen en 
la variable ATTR-P (23693) del sistema. Los bits 0-2 guardan 
los colores INK, y los bits 3-5 los colores PAPER. Los bits 6 y 
7 restantes se utilizan para FLASH y BRIGHT. Para FLASH 
Y el bit 7 se pone a cero; para FLASH 1 el bit 7 se pone a uno. 
BRIGHT $ tiene el bit 6 a cero y BRIGHT 1 tiene el bit 6 a 
uno. 

El programa 1.2 muestra la asignación de PAPER 3: INK 1: 
CLS y demuestra el hecho de que ATTR-P (23693) puede po- 
nerse como IY + 83. El registro IY se utiliza como puntero 
para la variable del sistema, y contiene el valor 23610. Si desea 
poner “LD(23609), A” por ejemplo, esto se puede considerar 
como (IY — 1) o (IY + 255). 


5 REM establecer colores de pantalla Llamada abrir canal 2 

permanentes 

10 PAPER 3: INK 1: CLS 3766 3E g2 ld a2 
23768 CD 01 16 call 5633 
llamada CLS 

LD (ATTR-P), colores 23771 CD 6B 0D call 3435 

23762 FD 36 53 19 ld (iy+83), 25 23774 C9 ret 

Programa 1.2 


La orden CLS (CALL 3435) borra la pantalla y establece los 
parámetros de pantalla, como el CLS del BASIC, pero obser- 
vará que antes de hacer la llamada a CLS hay una llamada a la 
rutina 5633 de la ROM. Esto es muy importante, y se usará 
muchas veces en todo este Capítulo. La llamada es necesaria 
para abrir el canal 2, permitiendo que la información vaya a la 
mitad superior de la pantalla, es decir, a las líneas desde la 0 
hasta la 21. Una vez establecidos nuestros parámetros perma- 
nentes de pantalla, podemos entonces pasar realmente a impri- 
mir en la pantalla. 

El programa 1.3 muestra la forma de imprimir un carácter en 
la pantalla en la siguiente posición de impresión; esta será 0,8, 
si se ha ejecutado una orden CLS. Observará de nuevo que el 
“canal 2” debe abrirse primero, y que el código del carácter a 
imprimir debe estar en el registro A. 
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Se llama a la rutina ROM para imprimir un carácter 
utilizando RST 16 d, que de hecho es una llamada a la rutina 
5618 d. Esta rutina imprime el carácter del registro A, y 
avanza una posición de impresión. 


REM imprimir un carácter usando CARGAR EN AC. CODIGO CAR. A 
colores permanentes 

20 PRINT “A”: 23765 3E 41 ld a,65 
org 23769 LLAMADA IMPRIMIR 
Abrir canal 2 23767 D7 rst 16 

23768 C9 ret 

23768 3E 02 ld a,2 
23762 CD 61 16 call 5633 

Programa 1.3 


El programa 1.4 amplía lo anterior para permitir la impresión 
de una palabra “corta”. De nuevo se abre el canal 2, y se carga 
sucesivamente el registro A con cada carácter hasta que se im- 
prime la palabra completa. 


19 REM Imprimir una serie de caracteres E 

20 PRINT "HOLA" 23774 D7 rst 16 
23771 3E 4C ld a,76 
E 

org 237698 23773 D7 rst 16 
23774 3E 4C ld a.76 

Abrir canal 2 L 
23776 D7 rst 16 

23760 3E 02 ld a,2 23777 3E 4F ld a,79 

23762 CD 01 16 call 5633 (0) 

23765 3E 4B ld a,72 

H 

23767 D7 rst 16 23779 D7 rst 16 

23768 3E 45 ld a,69 23780 C9 ret 


Programa 1.4 


Sin embargo puede ver que el método anterior supondría una 
pérdida de tiempo y de memoria si hubiese que imprimir una 
palabra extensa o frase, y sería mejor abordar el problema de 
forma diferente. 

Como se demuestra en el programa 1.5, hay varias opciones 
posibles. La idea principal consiste en guardar el mensaje con 
DATA, y leer un carácter cada vez hasta que se imprima todo 
el contenido de DATA. i 


10 REM Imprimir una serie LARGA Lazo 
20 Print “AYUDAME” 23771 78 Id a,b 
23772 B1 orc 
23773 0B dec bc 
org 23768 23774 C8 ret z 
23760 3E 02 ld a,2 23775 1A Id a,(de) 
23762 CD 41 16 call 5633 23776 13 inc de 
23765 11 E4 5C Id de, DATA 23777 D7 rst 16 
23768 01 07 QU ld bc,7 23778 18 F7 jr Lazo 
DATA 


Longitud de serie defb 72 69 76 84 32 77 69 


Programa 1.5 


En la versión 1 el registro DE contiene la dirección del 
comienzo de DATA y es utilizado como puntero para cada ca- 
rácter; el registro BC contiene la longitud de la serie, y se 
hace una llamada RST 16 para cada carácter sucesivo hasta 
que BC = 0. 


org 3760 LLAMADA IMPRIMIR SERIE 
23769 3E 02 ld a,2 

23762 CD 01 16 call 5633 23771 CD 3C 28 call 8252 
23765 11 DF 5C Id de, DATA 23774 C9 ret 
23768 01 07 YU ld bc,7 DATA 


defb 72 69 76 84 32 77 69 


La versión 2 es igual que la versión 1 salvo en que se utiliza 
la rutina 8252 d de la ROM, que de hecho es una copia de la ru- 
tina de la versión 1, desde la dirección 23771 a la 23778. 


org 23769 23774 13 inc de 
23760 3E 02 ld a,2 23775 18 F7 jr Loop 
23762 CD 91 16 call 5633 END 

23765 11 E5 50 ld de DATA 23777 CB BF res 7,a 
Lazo 23779 D7 rst 16 
23768 1A ld a, (de) 23780 C9 ret 
23769 CB 7F bit 7,a DATA 

23771 20 Q4 jr nz, END defb 72 69 76 84 32 77 197 
23773 D7 rst 16 


La versión 3 puede utilizarse para imprimir series de cual- 
quier longitud, pero está limitada a los códigos de carácter del 0 
al 127. El último carácter se utiliza como marca para indicar el 
final de la serie añadiendo 128 a su código, asignando el bit 7, y 
entonces, antes de imprimir un carácter se hace una prueba 
para ver si el bit 7 es cero. Si lo es, se repite el lazo PRINT; si 
no, se hace un salto a la rutina END que pone a cero el bit 7,A, 
imprime el carácter, y continúa con el programa, en este caso 
con RET. 

La versión 3 puede utilizarse como “subrutina PRINT” en un 
programa en el que pueden almacenarse juntos varios mensajes 
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con indicadores de final, y todo lo que se necesitaría sería car- 
gar DE con la dirección de comienzo del mensaje requerido y 
hacer una llamada a la subrutina PRINT. Con la Spectrum se 
utiliza una rutina similar, aunque más complicada, para impri- 
mir palabras clave y mensajes de error; esta rutina empieza en 
la dirección 3082 d. 

Los mensajes de error desde 1 a R, según se muestra en el 
Apéndice B del manual de la Spectrum, pueden imprimirse fá- 
cilmente utilizando la orden RST 8. El byte que sigue a la ins- 
trucción RST 8 apunta al mensaje de error requerido. Por 
ejemplo, si selecciona el mensaje “K invalid colour” que es de 
hecho el vigésimo-primer mensaje de error, utilice entonces: 


RST 8 
defb 19 d (número de mensaje — 2) 


No se necesita ninguna instrucción de retorno, ya que la ROM 
volverá automáticamente al BASIC después de imprimir el 
error. 

Ahora podemos movernos o imprimir caracteres o series en 
una línea y columna específica, como en la instrucción PRINT 
AT línea, columna; “mensaje” del BASIC. De nuevo, si mira en 
el Apéndice A del manual de la Spectrum, verá que los códigos 
de carácter del 6 al 23 son códigos de control, y en particular el 
código 22 es el código de “AT”. Ahora, afortunadamente para 
nosotros, la instrucción RST 16 reconocerá el código 22 como 
“PRIM AT” y utilizará los dos bytes siguientes de DATA como 
x,y; estas son las coordenadas que nos dan la posición del men- 
saje. El programa 1.6 muestra esto usando defb 22,3,5 para 
PRINT AT 3,5; 


10 REM Imprimir serie en x,y 23768 01 0C BY ld bc,12 

20 PRINT AT 3,5; “Gracias” 23771 CD 3C 28 Call 8252 
23774 C9 ret 
DATA 

org 23769 En35 

23769 3E B2 ld a,2 

23762 CD 01 16 Call 5633 defb 2235 

23765 11 DF 5C ld de, DATA defs Gracias 


Programa 1.6 


Puede utilizarse el mismo principio para TAB (CODE 23). 
Observe también que ENTER (CODE 13d) hará el mismo 
efecto que NEWLINE. 

De modo que ahora podremos imprimir cualquier mensaje en 
cualquier posición de la línea 0 a la 21 utilizando los colores 
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principales. Todo lo que falta para completar la impresión de la 
pantalla normal es imprimir mensajes en colores poco comunes, 
BRIGHT, FLASH, OVER, e INVERSE. 

El programa 1.7 muestra como se logra esto, y sigue los 
mismos principios del programa 1.6, en cuanto a que los códigos 
de control para PAPER, INK, BRIGHT, etc., se guardan en 
DATA con el byte que contiene el código de control siguiendo a 
la especificación de parámetros. 


1000 REM Impresión en colores REINICIALIZAR COLORES PERMAMENTES 

1019 PRINT AT 4,7; PAPER 2; INK Y BRIGHT Y FLASH Y 

4; FLASH 1; BRIGHT 1; OVER 1; IN 

VERSE 1; "Puede leer esto” 23774 CD 4D 0D call 3405 
23777 C9 ret 

org 23769 DATA 

23769 3E 92 Id a,2 defb 2247172164181 

23762 CD Q1 16 call 5633 defb 191 211201 

23765 11 E2 5C ld de, DATA defs Puede leer esto 

23768 Y1 24 0U ld bc,36 defb 21 4 20 4 

23771 CD 3C 29 call 8252 

Programa 1.7 


Después de utilizar colores secundarios es necesario poner a 
cero los colores principales para seguir imprimiendo. En el caso 
de OVER y de INVERSE se requiere utilizar RST 16, pero 
PAPER, INK, BRIGHT y FLASH pueden reinicializarse me- 
diante una llamada a la rutina 3405 d de ROM que copia el va- 
lor de ATTR P (23693) en ATTR T (23695). 

Finalmente, consideramos la impresión en la mitad inferior 
de la pantalla, es decir en las líneas de entrada 22 y 23. Esta 
utiliza exactamente el mismo método que el que se describió 
para imprimir en la parte superior, excepto que hay que abrir 
un canal diferente antes de utilizar RST 16. El programa 1.8 
muestra un ejemplo de como se lleva esto a cabo. 


10 REM Imprimir en líneas INPUT ESPERAR 

20 PRINT +9 AT 9,19; “Línea input 23774 76 parar 
0"¡AT 1,19; “Línea input 1" 

30 PAUSE Y Si pulsa tecla entonces 


BIT 5, FLAGS será uno 
23775 FD CB 91 6E bit 5, (iy+1) 


23779 28 F9 jr z, WAIT 

org 23769 23781 FB CB 01 AE res 5, (iy+1) 
23785 C9 ret 

Abrir canal -3 DATA 

23760 3E FD ld a,253 

23762 DC 81 16 call 5633 defb 22 Y 19 

23765 11 EA 5C ld de, DATA defs Línea input Y 

23768 01 1E YY ld bc, 39 defb 22 1 10 

23771 CD 3C 28 call 8252 defs Línea input 1 


Programa 1.8 
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El canal en este caso es —3 (253). 

El programa en BASIC es interesante porque en el manual 
no se menciona que con PRINT + Y se imprimirá en las líneas 
de entrada. La instrucción PAUSE 4 es necesaria para parar el 
programa sin la instrucción Y O.K. que podría cambiar la impre- 
sión de la línea de entrada. 

De forma similar, esta rutina en código máquina requiere el 
equivalente a PAUSE 8. Esto se logra examinando continua- 
mente el bit 5 de FLAGS (23611) o (IY + 1) después de una 
instrucción HALT. La instrucción HALT espera a la siguiente 
rutina KEYSCAN, y si se pulsa una tecla, pone el bit 5 de 
FLAGS a uno. Así, esperamos en el lazo hasta que el bit 5 se 
pone a uno y entonces se vuelve al BASIC. Observar que la lí- 
nea 22 se cuenta como línea 8 y la línea 23 como línea 1. 

Una rutina ROM que puede ser muy útil para la impresión de 
las líneas de entrada, pero que deja intacta la parte superior de 
la pantalla, puede encontrarse en 3652, que es un “número es- 
pecífico de borrado de rutina de líneas”; el número de líneas se 
cuenta desde la parte inferior de la pantalla y debe ser mayor 
que O. En el registro B se pone el número de líneas (1-24) y 
después se hace la llamada; los colores usados para borrar las lí- 
neas son los contenidos en ATTR P. Las líneas de entrada pue- 
den borrarse con las instrucciones 

LD B, 2 

CALL 3652 

(Return) 

Antes de pasar al siguiente capítulo hay que destacar un 
punto importante referente a los gráficos definibles por el usua- 
rio. Si ha escrito un programa para ejecutarlo en máquinas de 
16K y de 48K, entonces tendrá que situar correctamente los 
UDGs en cada máquina. La forma más fácil de hacer esto es si- 
tuar los UDGs empezando a partir de la dirección 32600, es de- 
cir para una máquina de 16K, y después utilizar el Pro- 
grama 1.9 para relocalizar los UDGs según la dirección 
guardada en la variable UDG (23675) del sistema. 


10 REM Tranferir 16 K de UDG's para 99 IF bc<>8 THEN GO TO 54 
corregir localización para máquinas de 48K 109 REM volver 

20 LET de=PEEK 23675+256*PEEK 
23676 


30 LET h1=32600 org 23769 

40 LET bc=166 23760 ED 5B 7B 5C ld de,(23675) 
50 POKE de, PEEK h1 23764 21 58 7F ld hl,32609 
60 LET hl=hI+1 23767 41 A8 Yu ld bc,168 

70 LET de=de+1 23774 ED BY Idir 

80 LET bc=bc—1 23772 C9 ret 


Programa 1.9 


PLOT, DRAW, 
Y CIRCLE 


PLOT 


La orden PLOT x,y del BASIC lleva consigo la visualización 
del pixel columna x, fila y con un color primario. El pixel de la 
posición 0,0 está situado en la esquina inferior izquierda de la 
pantalla y el 175.255 en la esquina superior derecha. 

En lenguaje máquina hay dos puntos de entrada útiles a la 
rutina PLOT de la ROM: el primero de ellos, que es probable- 
mente el más útil y fácil de usar es CALL 8933. Antes de lla- 
mar a la rutina, el registro B debe contener el valor de y (en el 
rango de 0 a 175), y el registro C debe contener el valor de x 
(0-255). El programa 2.1 muestra la orden PLOT 75,125 del 
BASIC. 


1004 REM Plot x,y 
1010 PLOT 75,175 


org 23769 

23760 06 7D ld b,125 
23762 YE 48 lde,75 
23764 CD E5 22 call 8933 
23767 C9 ret 


Programa 2.1 


Si se usan números en decimal en vez de en hexadecimal, es 
más fácil seguir el programa cargando los registros B y C por 
separado. Por supuesto, podríamos haber ahorrado memoria 
usando LD BC,32075 pero esto sería confuso. 

El segundo punto de entrada está en 8924. En este caso se 
requiere que los valores de x e y se coloquen en la pila de la 
calculadora, poniéndose el valor de y en el valor superior. El 
programa 2.2 demuestra esto con la misma PLOT 75,125. 


org 23768 STACK 175 
23769 3E 48 ld a,75 

23767 CD 28 2D call 11568 
STACK 75 LLAMADA PLOT 
23762 CD 28 2D call 11569 23778 CD DC 22 call 8924 
23765 3E 7D ld a,125 23773 C9 ret 
Programa 2.2 
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La rutina 11560 de la ROM se utiliza para poner el valor del 
registro A en la parte superior de la pila de la calculadora. Con 
la rutina PLOT situada en la dirección 8924 se sacan los dos va- 
lores superiores de la pila y se traza un pixel. De esta forma la 
pila de la calculadora queda reducida en dos valores. 

El uso de la calculadora se tratará más detalladamente en el 
programa 2.5. Este segundo punto de entrada es útil si la calcu- 
ladora ha sido utilizada para manipular una fórmula para dibu- 
jar gráficos, etc. 

El programa 2.3 muestra como se realiza PLOT OVER 1; 
x,y. 


10 REM Plot OVER 1;x,y 23765 06 28 Id b,49 

20 PLOT OVER 1;25,49 23767 YE 19 ld c,25 
23769 CD E5 22 call 8933 

org 23768 ESTABLECER OVER Y 

ESTABLECER OVER 1 ESTABLECER BITS 4 y 1 del FLAG-P 

ESTABLECER BITS 4 y 1 del FLAG P 23772 AG xor a 

23760 3E B3 ld a,3 23773 FD 77 57 ld (iy+87),a 

23762 FD 77 57 ld (iy+87),a 23776 C9 ret 


Programa 2.3 


Este programa pone a uno los bits 0 y 1 de P FLAG (1Y + 87) 
antes de hacer la llamada PLOT, y después los pone a cero. Si 
no se pone a cero OVER 4, entonces cualquier trazado o impre- 
sión futura se llevará a cabo como OVER 1. 

PLOT INVERSE tiene la misma forma que PLOT OVER y 
requiere la puesta a uno de los bits 2 y 3 de P FLAG; la varia- 
ble del sistema se pone al valor 12. 

Usando el punto de entrada 8933 podemos escribir un pro- 
grama para visualizar un carácter en cualquier lugar de la pan- 
talla. La única limitación es que el código del carácter esté com- 
prendido entre 32 (espacio) y 127 (copyright), es decir tiene que 
tener sus ocho-bytes de composición guardados en la ROM de 
generación de caracteres. 


org 23760 Contador de byte 
Cargar L con código de CAR 
23760 2E 7F ld 1,127 
23762 26 QU ld h,g 23772 46 V8 ld b,8 
L3 Guardar punteo HL 

Multiplicar x8 
23764 29 add hl,hl 23774 ES push hl 
23765 29 ada hl,hl 
23766 29 ada hi,hl Contador de bit 
Sumar a (23606) para encontrar 

A 23775 Q4E Y8 ld c,8 
comienzo de carácter 23777 7€ ld a.(hl) 
23767 ED 5B 36 5C 1d de, (23606) L2 
23771 19 add hl,de 23778 C5 push bc 


Obtener posición x,y para plot 23798 C1 pop bc 


23799 4D dec c 
23779 ED 4B ME 5D Id bc,(XY) 23800 24 E8 jrnz,12 
23802 C5 push bc 


Examinar si BIT está a uno 


Reinicializar PLOT a x-8, y —1 


23783 17 ria 
23784 FS push af 
23803 ED 48 SE 5D Id bc, (XY) 
23785 30 Y5 jr nc,L1 23807 M5 dec b 
23898 3E F8 ld a,248 
23819 81 add a,c 
Si está a uno entonces PLOT 23811 4F ld c,a 
23812 ED 43 ME 5D ld (XY),bc 
23787 CS push bc 23816 C1 pop bc 
23788 CD E5 22 call 8933 23817 El pop hi 
23791 C pop bc 23818 23 inc hl 
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Repetir hasta contador BYTE=9 
Mover PLOT a x+1,y 


23819 19 D1 dinz L3 
23792 VO inc G 23821 C9 ret 
23793 ED 43 GE 5D Id (XY),bc xY 
23797 F1 pop af defb 194 28 


Programa 2.4 


En el programa 2.4 puede ver que el código del carácter re- 
querido se coloca en el registro L (dirección 23761), después se 
multiplica por 8 y se suma con el valor almacenado en la varia- 
ble del sistema (23606) para encontrar el comienzo en el genera- 
dor de caracteres de los ocho bytes que componen el carácter. 
El registro HL se usa después como puntero, conteniendo la di- 
rección del byte del carácter. El registro BC se usa como conta- 
dor para la matriz de 8 bitx8bit del carácter, y el registro A 
contiene el byte del carácter. 

La instrucción RLA se ejecuta 8 veces para cada byte de ca- 
rácter, y si un bit se pone a uno, es decir, si después de RLA 
la bandera CARRY se pone a uno, entonces se visualiza el 
pixel. 

Después de cada instrucción RLA se actualizan las coorde- 
nadas x,y. Las coordenada x,y iniciales son las del pixel supe- 
rior izquierdo del carácter que está siendo visualizado. Por lo 
tanto, para que permanezca en la pantalla, el valor de y debe 
estar comprendido entre 7 y 175. El valor de x puede ser de 0 a 
255; si se intenta tomar un valor de x superior a 255 resultará 
que el valor se hace 0, es decir, si C = 255 entonces “inc C” 
dará C =0. 
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Este programa puede modificarse fácilmente para visualizar 
caracteres con una rotación de 90 grados en sentido contrario al 
de las agujas del reloj. 


org 23769 


Cargar L con código de CAR. 


23760 2E 64 
23762 26 04 


Multiplicar x 8 
23764 29 


23765 29 
23766 29 


ld 1,96 
ld, hg 


add hl,hl 
add hI,hl 
add hi,hl 


Sumar a (23606) para encontrar 


comienzo de carácter 


23767 ED 5B 36 5C 
23771 19 


Contador de byte 


23772 46 48 
Guardar puntero HL 
23774 ES 

Contador de bit 
23775 VE 48 

23777 7E 


L2 
23778 C5 


Id de, (23606) 
add hl,de 


ld b,8 


push hl 


ld c,8 
Id a(hl) 


push bc 


Obtener posición x,y de plot 


23779 ED 4B QE 5D Id bc, (XY) 


Examinar si BIT es uno 


23783 
3784 FS 


Programa 2.5 


rla 
push af 


23785 30 45 


jr nc,L1 


Si es uno entonces PLOT 


23787 C5 
23788 CD E5 22 
23791 C1 

L1 


Mover PLOT a x,y+1 


23792 Ya 

23793 ED 43 YE 5D 
23797 F1 

23798 C1 

23799 UD 

23809 20 E8 
2380205 


push bc 
call 8933 
pop bc 


inc b 

ld (XY),bc 
pop af 
pop bc 
dec C 

jr nz,L2 
push bc 


Reinicializar PLOT a x+1,y-8 


23803 ED 4B YE 5D 
23807 V0C 

23808 3E FB 

23810 89 

23811 47 

23812 ED 42 YE 5D 
23816 C1 

23817 El 

23818 23 


ld bc, (XY) 
inc C 

ld a,248 
add a,b 

ld ba 

ld (XY), bc 
pop bc 
pop hl 

inc hi 


Repetir hasta que contador BITE=0 


23819 19 D1 
23821 C9 
XxY 

defb 100 20 


dinz L3 
ret 


En el programa 2.5 las coordenadas x,y se actualizan para vi- 
sualizar un byte vertical en vez de uno horizontal como ocurría 
en el programa 2.4; ahora las coordenadas x,y indican el pixel 
inferior izquierdo, y entonces el rango para y va de 0 a 167. 

Una vez estudiada la forma de visualizar un carácter po- 
demos pasar ahora a nuestro primer programa serio para visua- 
lizar un mensaje en cualquier posición de la pantalla, y para 
que sea más útil, permitiremos la selección de su anchura y al- 
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tura. Se dispone de una copia del programa en cinta —LOAD 
“PLOTDEMO”. 

Para que sea útil como rutina de un programa en BASIC, la 
he enganchado a una rutina de “búsqueda” para que los pará- 
metros altura/anchura, posiciones x,y de visualización, y men- 
saje, puedan asignarse utilizando variables del BASIC de forma 
que no haya necesidad de la orden POKE con códigos máquina. 
Si desea utilizar la rutina dentro de un programa en código má- 
quina, la rutina de búsqueda es entonces innecesaria y puede 
omitirse; los parámetros pueden copiarse directamente en la 
memoria intermedia de la impresora. El programa BASIC es 
auto-explicativo y permite al lector experimentar con valores 
diferentes de altura/anchura, x,y y mensajes (a$). 

El código máquina es una extensión del programa 2.4. Los 
valores de x,y,h y w se encuentran utilizando la rutina de bús- 
queda. Esta rutina trabaja con el almacén de variables hasta 
que encuentra la variable CODE requerida, y entonces alma- 
cena el valor de la variable (0-255) en la memoria intermedia de 
la impresora. Una vez que se ha almacenado el valor de la va- 
riable, se encuentra y se almacena LEN a $ de nuevo (0-255), y 
finalmente se copia el mensaje en la memoria intermedia de la 
impresora (el lugar más útil para almacenar datos). La rutina 
“PLOT” incluye una instrucción CATCHALL y convertirá cual- 
quier parámetro equivocado en otro aceptable, y se compone de 
cinco bucles: 


(L1) Dibujar un bit establecido con SET para WIDTHw 

(L2) Repetir L1 para los ocho bits 

(L3) Repetir HEIGHT h veces 

(L4) Repetir para los ocho bits 

(L5) Repetir hasta el final del mensaje 

Observe el comentario del programa en las variables 
FOR/NEXT del lazo LOOP. 


En el programa 2.6 el código máquina comienza en 32393. La 
primera rutina, de 32393 hasta 32418, inicializa el registro BC 
como puntero de la memoria intermedia de la impresora y llama 
a la rutina SET para establecer el código de la variable situada 
en la dirección 23728. La rutina SET llama sucesivamente a la 
rutina FIND para encontrar los códigos de las variables. En- 
tonces el valor de la variable (0-255) se almacena en la dirección 
de la memoria intermedia de la impresora, indicada por el re- 
gistro BC. Así, las variables x,y,h, y w se localizan y almace- 
nan consecutivamente. La rutina de 32419 a 32442 encuentra el 
código de la variable a$, entonces se guarda la longitud (0-255) 
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INSTRUCCIONES 


Este primer programa de demostración le permitirá 
«dibujar» (plot) mensajes en cualquier lugar, de la 
pantalla usando variables BASIC para establecer los 
parámetros del mensaje. 


Los parámetros de caracteres se establecen como si- 
gue: 


Altura : LET h=1 to h=22 
Anchura LET h=1 to h=32 

eje x LET x=0 to 255 

eje y : LETy=0to 175 

Mensaje LC LETas= eee...” 

Plot : RANDOMISE USR 32393 


PULSE CUALQUIER TECLA 


Puede seleccionar los colores de tinta antes de la lla- 
mada al código máquina PERO acuérdese de reinicia- 
lizar después el color permanente. 


Cualquier parámetro incorrecto será corregido con el 
código/M, y si el mensaje es demasiado largo/alto se 
enrroscará en la pantalla. 


NOTA: 


NO UTILIZAR LAS VARIABLES x,y,h EN LAZOS 
FOR/NEXT PUES EL PROGRAMA SE ESTROPEARA. 

El siguiente programa le pedirá los parámetros y vi- 
sualizará su mensaje. 


PULSE Q PARA PARAR 
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5 OVER 0: PAPER 6: BORD ER 3: CLS 

10 LET x=24: LET y=79: LET =5: let 
w=2: LET a$="PARAR LA CINTA” 

15 INK 2: RANDOMIZE USR 32393 

18 PAUSE 108 

20 LET w=8: LET y=150: LET x=0: 

LET a$="PLOT” 

30 INK 1: RANDOMIZE USR 32393 

35 LET a$=.-___”: LET y=140 

36 INK 1: RANDOMIZE USR 32393 

49 FLASH 1: GO SUB 8840 

50 FLASH Y 

60 PAUSE Y 

70 PAPER 7: INK 0: BORDER 7: CLS 

80 LET: X=32: LET y:=175: LET h=1 
¿ LET w=2: LET a$="INSTRUCCIONES” 

99 INK 2: RANDOMIZE USR 32393: 

INK 

100 PRINT AT 2,0;"Este primer programa 
de demostración le permitirá "dibujar” (plot) 
mensajes en cualquier lugar de la pantalla 
usando variables BASIC para establecer los 
parámetros del mensaje». 

110 PRINT ""Los parámetros de carac- 
teres se establecen como sigue:—” 
120 PRINT ""Altura: LET h = 
h=22""”Anchura : LET w=1 to w=3 2” 

130 PRINT "eje x : LET x=8 a 255” "eje y: 
LET y=0 a 175” 

140 PRINT "Mensaje : 
34; Mero CHRS 34 

150 PRINT "Plot : 
32393" 

160 GO SUB 8009 

170 IF INKEY$<>"" THEN GO TO 1790 

175 IF INKEYS="" THEN GO TO 175 178 
CLS 

180 PRINT: «Puede seleccionar los co- 
lores de tinta antes de la llamada al código 
máquina PERO acuérdese de reinicializar 
después el color permanente. 

1994 PRINT "Cualquier parámetro inco- 
rrecto será corregido con el código /M, y si 
el mensaje es demasiado largo/alto se en- 
rroscará en la pantalla.” 

209 LET aS$="NOTA”: LET y=95: INK 2: 
RAMDOMIZE USR 32393: INK 9. 

210 PRINT AT 12,0; "NO UTILIZAR LAS 
VARIABLES x,y,h EN LAZOS FOR/NEXT 
PUES EL PROGRAMA SE ESTROPEARA” 

220 PRINT' "El siguiente programa le pe- 
dirá los parámetros y visualizará su men- 
saje.” 

234 GO SUB 80900 

235 IF INKEYS$<>"” THEN GO TO 235. 

240 IF INKEYS$="”” THEN GO TO 249 

242 CLS : BORDER 4 

245 PLOT 0,121: DRAW 255,0: DRAW 
9,-73: DRAW —255,0: DRAW 0,73 
250 PRINT AT 8,0; "ALTURA 1-22 ? __”, 


1 to 


LET a$="¡CHRS$ 
RANDOMISE USAR 


"ANCHURA 1-32? __”, "X 
eje x 8-255 ? >” "eje y 9-1 
75 ? MENSAJE 2%, 
Na E TINTA 
g-9 ?» 


255 LET z$=" 
257 LET v$="” 


260 PRINT OVER 1;¡AT 8,9,2$ 

262 INPUT h: PRINT AT ',18;h; "” 
; OVER 1;AT 8,0v5 

265 PRINT OVER 1;AT 9,8;25: INPUT w: 
PRINT AT 9,18; w; ” ”; OVER1 : AT 9,0; v$ 

270 PRINT OVER 1;AT 10,0Z5: INPUT x: 
PRINT AT 18,18; x; " ”; OVER1; AT 18,0/v8 

272 PRINT OVER 1; AT 11,028: INPUT y: 
PRINT AT 11,18; y; " ”; OVER 1; AT 11,9; v$ 

273 PRINT OVER 1;AT 12,0;z5;AT 
13,02$: INPUT a$: PRINT AT 13,8; a$: FOR 
kK=LEN a$ TO 31: PRINT ” ”;: NEXT k: 
PRINT OVER 1;AT 12,0; v$; OVER 1;AT 
13,0, v$ 

275 PRINT OVER 1;AT 14,9;z$: IN PUT ¡: 
PRINT AT 14,9; INK i; OVER1; v$ 

280 PAUSE 59 

299 CLS : INK |: RANDOMIZE USR 3 
2393: INK Y 
300 PRINT 4+0;AT 0,0; "PULSE Q PARA PA- 
RAR”; AT 1,0; "CUALQUIER OTRA PARA IR 
OTRA VEZ” 

310 PAUSE 0: IF INKEY$="q" OR IN 
KEY$="0" THEN STOP 

328 CLS : GO TO 245 
8000 LET h=1: LET w=2: LET x=24: 
LET y=15: LET a$="PULSE CUALQUIER 
TECLA” 

INK 2: RANDOMIZE USAR 32393: INK Y 
8010 RETURN 
9008 STOP 
oe CLEAR 32334: LOAD ""CODE: GO 
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99094 SAVE "PLOTDEMO” LINE 9809 
9950 SAVE "LARGE" CODE 32335,265 
org 23764 32335 


FIND 

32335 2A 4B 5C ld, hi, (23627) 
L2 

32338 3A BY 5C ld a,(23728) 
32341 BE cp (hi) 
32342 CB ret z 
32343 CB 6E bit 5,(hl) 
32345 28 08 jr nz,L1 
32347 23 inc hl 
32348 5E Id e,(hl) 
32349 23 inc hl 
32350 56 ld d.(ht) 
32351 19 add hl,de 
32352 23 inc hl 
32353 18 EF jrL2 

L1 

32355 CB 76 bit 6,(hl) 
32357 20 4C jr nz,L3 
32359 23 inc hi 
32360 7E ld a,(hl) 
32361 CB 7F bit 7,a 
32363 28 FA jr z,-6 
32365 11 06 YU ld de,6 
32368 19 add hl,de 
32369 18 DF jrL2 


L3 

32371 CB 7E 
32373 28 F6 
32375 11 13 04 
32378 19 
32379 18 D5 
SET 

32381 32 BY 5C 
32384 CD 4F 7E 
32387 23 
32388 23 
32389 23 
32390 7E 

32391 42 
32392 C9 


EMPEZAR 
32393 01 00 5B 
32396 3E 78 
32398 CD 7D 7E 
32481 93 

32402 3E 79 
32494 CD 7D 7E 
32407 03 

32408 3E 68 
324198 CD 7D 7E 
32413 83 

32414 3E 77 
32416 CD 7D 7E 
32419 3E 41 
32421 32 BQ 5C 
32424 CD 4F 7E 
32427 23 

32428 5E 

32429 23 

32430 56 

32431 ED 53 94 5B 


32435 D5 
32436 C1 
32437 23 
32438 11 05 5B 
32441 ED Bg 
32443 2A 04 5B 
32446 AF 
32447 7C 
32448 DE Bg 
32458 38 04 
32452 67 
32453 22 04 5B 
32456 22 BQ 5C 
32459 21 M5 5B 
LP5 

32462 ES 
32463 7E 
32464 26 0Y 
32466 6F 

32467 29 
32468 29 

32469 29 
32478 11 04 3C 
32473 19 
32474 06 048 
LP4 

32476 C5 
32477 ED 4B 01 5B 


bit 7,(hl) 
jrz,-10 
ld, de,19 
add hl,de 
jr L2 


ld (23728), a 
call FIND 
inc hi 

inc hi 

inc hi 

ld a, (hi) 

ld (bc),a 

ret 


ld bc,23296 
ld a,129 
call SET 

inc bc 

ld a,121 
call SET 

inc bc 

ld a,194 
call SET 

inc bc 

ld a,119 
Call SET 

ld a,65 

ld (23728),a 
call FIND 
inc hl 

ld d,(hl) 

inc hi 

ld,(hI) 

ld (23300),de 


push de 
pop bc 

inc hi 

ld de, 23301 
Idir 

ld hi, (23296) 
xor a 

ld a,h 

sbc a,176 

jr c,+4 

ld ha 

Id (23296),hl 
ld (23728), hl 
ld hl,23391 


push hi 

ld a,(hl) 

ld h,g 

ld l,a 

add hl,hl 
add hl,hl 
add hi, hi 

ld, de, 15368 
add hl,de 

ld b,8 


push bc 
ld bc (23297) 


LP3 

32841 7E 
32482 ES 

32483 C5 
32484 06 48 
LP2 

32486 C5 
32487 17 

32488 FS 

32489 DA F9 7E 
32492 2A 03 5B 
32495 3A BY 5C 
32498 85 

32499 32 BY 5C 


32502 C3 4F 7F 
PLOT 

32505 ED 4B B4 5C 
LP1 

32509 C5 

32510 ED 4B B4 5C 
32514 C5 

32515 CD E5 22 
32518 C1 

32519 40 

32520 ED 43 B4 5C 
32524 C1 

32525 10 EE 

SKIP 

32527 F1 

32528 C1 

32529 19 D3 

32531 3A 04 5B 
32534 21 B4 5C 
32537 77 

32538 23 


32539 AF 
32540 TE 

32541 DE BY 
32543 38 M3 
32545 77 
32546 18 08 
32548 7E 
32549 FE DY 
32551 29 92 
32553 36 BY 
32555 35 
32556 C1 
32557 El 
32558 19 B1 
32560 23 

32561 C1 
32562 18 AB 
32564 3A M3 5B 
32567 87 

32568 87 

32569 87 

32570 6F 

32571 3A B4 5C 
32574 85 
32575 32 00 5B 
32578 32 B4 5C 
32581 3A 91 5B 


Id a,(hl) 
push hl 
push bc 
ld b,8 


push bc 

rla 

push af 

jp c,PLOT 

ld hl,(23299) 
ld a,(23728) 
add a,l 

ld (23728), a 


jp SKIP 
ld Bc,(23728) 


push bc 

ld bc,(23728) 
push bc 

Call 8933 
pop bc 

inc C 

Id (23728),bc 
pop bc 

dinz LP1 


pop af 

pop bc 
dinz LP2 

ld a,(23296) 
ld hl,23728 
ld (hl),a 

inc hl 


xor a 
ld a,(hl) 
sbc a,176 
jr c,+3 

ld (hl),a 

jr +8 

ld a,(hl) 
cpy 

jr nz, +2 

la (hl),176 
dec (hl) 
pop bc 

pop hl 

dinz LP3 
inc hl 

pop bc 
dinz LP4 

ld a,(23299) 
add a,a 
add a,a 
add a,a 

ld la 

ld a,(23728) 
add a,! 

ld (23296),a 
ld (23728), a 
ld a,(23297) 
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32584 32 B1 5C ld (23729),a 32592 3D dec a 


32587 El pop hl 32593 C8 ret z 
32588 23 inc hl 32594 32 M4 5B Id (23300) a 
32589 3A 4 5B Id a,(23300) 32597 C3 CE 7E jp LP5 


Programa 2.6 


y finalmente se copia la serie. La rutina de 32443 a 32458 exa- 
mina el valor de y (si es mayor que 175 se cambia a y — 176) y 
después almacena los valores x e y anteriores en 23296/7 y tam- 
bién en 23728/9. 

El código máquina restante es una extensión de la rutina plot 
(dibujar un carácter) con los bucles adicionales para visualizar 
con PLOT el pixel “w (anchura)” veces para “h líneas”; se hace 
una prueba después de cada “línea” para asegurarse de que la 
siguiente posición PLOT permanece en la pantalla. La rutina 
desde 32540 a 32554 comprueba la siguiente posición de PLOT 
y origina un efecto de enrosque si está fuera de la parte supe- 
rior de la pantalla. 

Sin profundizar ahora demasiado en las rutinas CALCULA- 
TOR (de la calculador) podemos estudiar un programa que hace 
uso de PLOT en el punto de entrada 8924. 

El programa 2.7 muestra como puede dibujarse una onda si- 
nuosidal utilizando CALCULATOR para manejar la fórmula: 


88 + 80 * SEN (4/128 * PD 


1000 FOR A=0 TO 255 USAR CALCULADORA 
19010 PLOT A,88+80"SIN (A/128*PI) 
1029 NEXT A 23785 EF rst 49 
Dividir 2 valores superiores (A/128) 
defb 5 
Stack Pl/2 
org 23760 deb 163 
LET A=0 Duplicar valor superior 
defb 49 
23760 AF xor a Sumar 2 valores superiores (Pl) 
LAZO defb 15 
GUARDAR A Multiplicar 2 valores superiores 
23761 F5 push af (A/128*PI) 
APILAR A defb 4 
23762 CD 28 2D call 11569 SEN valor superior SEN (A/128*PI) 
23765 3E 58 ld a,88 defb 31 
23767 CD 28 2D call 11569 Mutplicar 2 valores superiores 
23770 3E 59 ld a,84 80*SIN (A/128*PI) 
23772 CD 28 2D call 11569 defb 4 
23775 F1 pop af Sumar 2 valores superiores 
23776 F5 push af 88+80*SIN (A/128*PI) 
23777 CD 28 2D call 11569 
23780 3E 84 ld a,128 defb 15 
23782 CD 28 2D call 11568 Fin de rutina calculadora 
Los 2 valores superiores son 
APILAR 88 89 A 128 A y 88+80*SIN (A/128*PI) 
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defb 56 23799 3C inc a 


LLAMADA PLOT Examinar si no cero (256) 

23795 CD DC 22 call 8924 23800 FE 0Y cpy 
Obtener valor A 23802 20 D5 jr nz, LOOP 
23798 F1 pop af 23894 C9 ret 


Programa 2.7 


La rutina CALCULATOR puede utilizarse para realizar ope- 
raciones aritméticas complejas mediante el uso de literales. En 
realidad son llamadas ROM para realizar cálculos en los cuales 
intervienen los dos valores situados en la parte superior de la 
pila de la calculadora, pero pueden usarse también para mane- 
jar series. Por ejemplo, si los dos valores de la parte superior 
fueran 1234 y 2, y el Literal 4 fuese llamado desde la rutina 
CALCULATOR, entonces esos dos valores podrían sacarse de 
la pila, multiplicarse y devolver su producto a la parte superior 
de la pila; no obstante la pila se reduciría en un valor, y el valor 
superior sería 2468. 

Los números enteros positivos pueden colocarse en la pila por 
medio de: 


STACK VAL A -— CALL 11560 OR STACK VAL BC -— 
CALL - 11563. 


En el programa 2.7 he utilizado STACK VAL A para ordenar 
“variable A”, 88,80 “variable A”, y 128. 

Después se llama a la rutina USE calculator mediante la ins- 
trucción RST 40. La rutina CALCULATOR opera con los 
bytes que siguen a RST 40 y actúa sobre cada uno, llamando a 
otras subrutinas según sea necesario. En nuestro programa el 
siguiente byte es 5, y Literal 5 significa “GOSUB DIVIDE”. 
Entonces se toman los dos valores superiores de la pila, se di- 
vide el primero por el segundo, y se devuelve el resultado a la 
pila. El siguiente byte de la rutina es Literal 163; le indica a la 
calculadora “STACK PI/2” (PILA PI/2). 


e El literal 49 es DUPLICATE TOP VALUE (duplicar el va- 
lor superior). 

e El literal 15 es ADD TOP TWO VALUES (sumarle dos al 
valor superior) así se apila la suma. 

e El literal 4 es MULTIPLY TOP TWO VALUES (multiplicar 
por dos el valor superior). 

e El literal 32 es SINE OF TOP VALUE (seno del valor supe- 
rior) de esta forma se reemplaza el valor superior por su 
seno. 


17 


Hay muchos más literales que pueden utilizarse en programas de 
juegos y serán tratados en capítulos posteriores. 

Por último, el Literal 56 es “END CALCULATOR ROU- 
TINE CALL” (lamada a la rutina fin de calculadora) que debe 
utilizarse para volver a su programa en código máquina. Otro 
punto importante a tener en cuenta cuando se utiliza la rutina 
CALCULATOR es que, antes de volver al BASIC deben bo- 
rrarse todas las variables apiladas previamente. 

Al final de la rutina CALCULATOR quedan dos valores en 
la pila de la calculadora; el valor superior es “88 + 80 * 
SEN (4/128 * PD” y el otro es el valor de “A”. La llamada 
PLOT (8924) toma entonces esos dos valores, borra la pila, y 
dibuja (PLOT) el pixel. Después se incrementa el valor “A” 
y se repite LOOP hasta que “A” = 256 (es decir, “A” se 
pone a 0). 

Con este programa puede ver que los literales de CALCU- 
LATOR son muy útiles y que una fórmula complicada se ha re- 
suelto con sólo ocho bytes. En realidad necesita más bytes para 
utilizar la pila que para realizar los cálculos. 
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DRAW 


Para la orden DRAW x,y hay también dos puntos de entrada. 
El primer punto (call 9402) requiere que el valor ABS de x esté 
en el registro C y que el valor ABS de y esté en el registro B. 
Se utiliza el registro DE para guardar el SGN de x e y; el re- 
gistro D contiene SGNx (1 si es positivo, 255 si es negativo) y 
el registro E guarda SGNy. El programa 2.8 es una versión 
modificada del programa 2.7 para hacer una demostración de la 
orden DRAW. 


5 PLOT 9,95: DRAW 255,0 23789 3E 78 ld a,120 
19 FOR a=8 TO 255 23791 CD 28 2D call 11568 
290 PLOT a,120+48*SIN (a/16*PI) 23794 3E 28 Id a,49 
DRAW 8,—59 23796 CD 28 2D call 11569 
30 NEXT a 23799 F1 pop af 

23800 FS push af 
23881 CD 28 2D call 11569 
23884 3E 19 ld a,16 
org 23769 23806 CD 28 2D call 11569 
Plot 8,95 23889 EF rst 49 
23768 06 5F Id b,95 defb 5 163 49 15 4 31 4 15 56 
23762 BE Bu ld cg 
dado ses AMOS 23189 CD DC 22 call 8924 
23767 D9 exx Stoe H'L' 
23768 E5 push hi 23822 D9 exx 
23769 D9 exx 23823 ES push hi 
Draw 255,9 or D9 ex 
23770 06 09 ld bg AW 8,58 
23772 QE FF ld 0,255 23825 06 32 Id b,58 
23774 16 01 ld d,1 
qa y 23827 BE 09 Id c,g 
23778 CD BA 24 call 9492 o 1 a A 
23831 1E 91 ld e,1 
Recuperar H'L' 23833 CD BA 24 call 9402 
23781 D9 exx Restore H'L” 
23782 El pop hl 23836 D9 exx 
23783 D9 exx 23837 El pop hl 
23784 AF xor a 23838 D9 exx 
23839 FH1 pop af 
23840 3C inc a 
L1 23841 FE 00 cp 
23785 F5 push af 23843 29 C4 jr nz, L1 
23786 CD 28 2D call 11560 23845 C9 ret 
Programa 2.8 


Observe que antes de llamar a DRAW el registro HL debe 
ser almacenado (en el ejemplo se hace guardándolo en la pila) 
porque es utilizado en la rutina DRAW. 

El valor del registro HL no debe ser modificado durante una 
rutina en código máquina escrita por un usuario o el programa 
se descontrolará al regresar al BASIC. El valor del registro 
fundamental HL es recuperado después de la orden DRAW. 
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DRAW OVER e INVERSE se utilizan de la misma forma que 
PLOT OVER/INVERSE. 

El segundo punto de entrada para DRAW x,y requiere que 
los dos valores superiores de la pila de la calculadora contengan 
x e y; de nuevo, y es el valor superior “CALL 9335. Si desea 
utilizar este segundo punto de entrada necesitará leer el Capí- 
tulo 7 para tomar contacto con el método de la Spectrum de al- 
macenar números negativos de cinco bytes en la pila de la cal- 
culadora. 


DRAW x,y,a 


El punto de entrada para esta orden BASIC es 9108 y requiere 
que los valores de x,y y a estén colocados en la pila de la calcu- 
ladora (en ese mismo orden, es decir, “a” en la parte superior). 
De nuevo, en el Capítulo 7 se explicará como se apilan números 
negativos. Al igual que antes, tampoco debe cambiarse el valor 


del registro fundamental HL. 


E 
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CIRCLE x,y,r 


El punto de entrada para esta orden del BASIC es 9005 y re- 
quiere que los valores x,y, y r estén en la parte superior de la 
pila de la calculadora. El registro fundamental HL se guarda 
durante la llamada CIRCLE. El programa 2.9 muestra una 
forma de dibujar círculos concéntricos para conseguir un efecto 
de rizo. 


10 REM Circle x,y,r 23780 F1 pop af 
290 FOR B=1 TO 2 23781 FS push af 
30 FOR A=1 TO 21 STEP 2 23782 CD 28 2D call 11569 
449 CIRCLE OVER 1,128,88,A Guardar H'L' (IMPORTANTE!) 
59 NEXT A 
690 NEXT B; 23785 D9 exx 
23786 ES push hl 
23787 D9 exx 
org 23764 
For B=1 TO 2 Call CIRCLE 
23760 06 02 ld, b2 23788 CD 2D 23 call 9MU5 
L2 
23762 05 push bc Recuperar H'L' 
For A=1 TO 21 23791 D9 exx 
23792 El pop hl 
23763 3E 01 ld a,1 23793 D9 exx 
L1 
23765 F5 push af 
23794 F1 pop af 
Set OVER 1 STEP 2 
23795 3C inc a 
23766 FD 36 57 83 Id (iy+87),3 23796 3C inc a 
23797 FE 17 cp 23 
Stack DATA 23799 20 DC jr nz, L1 
23801 C1 pop bc 
23770 3E 898 ld a,128 23802 10 D6 dinz L2 
Reinicializar OVER Y 
23772 CD 28 2D call 11569 
23775 3E 58 ld a,88 23804 FD 36 57 YU ld (iy+87),9 
23777 CD 28 2D call 11560 23848 C9 ret 


Programa 2.9 


Observará que el programa es casi tan lento como el BASIC. 
Es porque la rutina CIRCLE de la ROM es bastante larga. Si 
su programa en código máquina necesita un círculo, es más rá- 
pido guardar los puntos del dibujo como DATA y usar un lazo 
para dibujar cada pixel. 
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3 CONTAR 


La mayoría de los programas de juegos y muchos otros “serios” 
requieren alguna forma de contar. Esto se utiliza mucho en pro- 
gramas de juegos para llevar la puntuación, vidas perdidas, 
tiempo empleado, etc. Conozco tres métodos para contar y vi- 
sualizar el resultado en la pantalla. El primero consume tanta 
memoria y es tan confuso, que sólo daremos una breve descrip- 
ción. Este método lleva consigo la asignación del número MAX 
permitido con DATA. Por ejemplo, si usted estuviera contando 
desde 0 a 999999, entonces se reservarían seis bytes de DATA 
y se comenzaría por 000000. Después se necesitaría una rutina 
de impresión de series para imprimir los seis ceros en la panta- 
lla. Cuando se incremente en uno el contador será necesario 
empezar por los bytes de las unidades, examinar que no es 
nueve, sumar uno a las unidades y después imprimir la serie. Si 
las unidades llegan al valor nueve se pondrían a cero, después 
la columna de las decenas se examina para ver si es nueve y así 
sucesivamente. Después de imprimir la serie se debe hacer una 
comprobación para ver si los seis bytes son iguales a nueve, y 
si es así se termina de contar. Si se quiere contar hacia ade- 
lante o hacia atrás en pasos mayores que uno hay que colocar el 
contador “incrementar en uno” en un lazo. 

El segundo método se utiliza para contar hacia adelante o ha- 
cia atrás en un rango comprendido entre 0 y 65535 como se 
muestra en el programa 3.1. 


org 23769 Establecer PRINT AT 11,16 
Poner contador a cero 
23775 3E 16 ld a,22 
23760 Y1 Bu 0u 1d bc,8 23777 D7 rst 16 
11 
23763 ED 43 B40 5C 1d (23728), bc 23778 3 E 4B ld a,11 
23788 D7 rst 16 
Apilar valor 
23781 3E 10 ld a,16 
23767 CD 2B 2D call 11563 23783 D7 rst 16 
ADO Canale Llamada IMPRIMIR VALOR EN PILA 
23770 3E 02 ida 2 
23772 CD 41 16 Call 5633 23784 CD E3 2D call 11747 
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Obtener valor y sumar 1 
23787 ED 4B B4 5C ld bc, (23728) 
23791 43 inc bc 23795 FD CB 81 6E bit 5, (iy+1) 


Examinar si pulsa tecla 


Volver si es cero 


23799 28 DA jr z,L1 
23792 78 ld ab 23801 C9 ret 
23793 B1 orc 
23794 C8 ret z 


Programa 3.1 


En este programa se utiliza una rutina ROM que imprime el 
valor que hay en la parte superior de la pila de la calculadora: 
call 11747. Los bytes que sobran en las variables 23728/9 del 
sistema son utilizados para guardar el valor del contador; el 
rango va desde 0 a 65535. Todo lo que necesitamos hacer des- 
pués es coger el valor actual y sumarle uno, poner el nuevo va- 
lor otra vez en COUNTER (contador), apilar (STACK) el valor, 
hacer la asignación de parámetros con PRINT AT y llamar a 
PRINT VALUE ON STACK (imprimir el valor de la pila). 
Si el valor de BC se hace cero (es decir, 65.536) se vuelve al 
BASIC. 

He incluido también una rutina EXIT situada en las direc- 
ciones desde 23795 a 23800 de forma que pulsando una tecla se 
volverá también al BASIC. Es aconsejable utilizarla, ya que de 
otra forma nos quedaríamos bloqueados en LOOP hasta que el 
contador llegue a 65535 y eso podría llevar varios minutos. 

La tercera forma de contar utiliza la calculadora. Hasta ahora 
hemos considerado a la pila de la calculadora como un lugar 
para almacenar valores, sin explicar con detalle como se alma- 
cena. Los valores están realmente almacenados en la pila en 
forma de cinco-bytes; es decir, toman cinco bytes de informa- 
ción para definir cualquier número admitido por la computa- 
dora. En el Capítulo 7 se discute esto con más detalle. En el 
programa 3.2 hacemos uso de este hecho para contar desde 0 en 
adelante en pasos de 250 sin límite superior. Sin embargo, una 
vez que se llega a 99999999 se acude a la rutina PRINT 
STACK VALUE para imprimir el valor en su forma E (1E + 9 
etc.), pero probablemente un valor de cien millones es suficien- 
temente alto para la puntuación de cualquier juego. 


org 23768 Establecer HL a STACKEND-5 


Utilizar CALCULADORA después de instrucción defb 56 
23760 EF rst 40 L1 

Copiar valor en MEMORIA INTERMEDIA DE 
LITERAL STACK Y IMPRESORA 
defb 169 

23763 11 04 5B ld de,23296 
Terminar de usar CALCULADORA 23766 91 05 Bu ld bc,5 
defb 56 23769 ED BY Idir 
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Abrir canal 2 Usar CALCULADORA 


23771 3E 42 ld a,2 23809 EF rst 49 
23773 CD 01 16 Call 5633 

SUMAR LITERAL 
Establecer PRINT AT 11,16 defb 15 
23776 3E 16 ld a,22 Terminar de usar CALCULADORA 
23778 D7 rst 16 defb 56 
23779 3E 4B ld a,11 
23781 D7 rst 16 
23782 SE 19 ld a,16 Examinar si se pulsa tecla 
23784 D7 rst 16 
Llamada PRINT VALUE ON STACK 23812 FD CB 01 6E bit 5.(iy+1) 
23785 CD E3 2D call 11747 23816 28 C9 jrz,L1 
ci a Sacar último valor de PILA 
AE FA a 23818 2A 65 5C 1d hl (23653) 
23794 CD 28 2D call 11569 23821 2B dec hl 

23822 2B dec hl 
APILAR VALOR 23823 2B dec hl 
23793 21 VW 5B ld hl,23296 23824 2B dec hl 
23796 ED 5B 65 5C ld de,(23653) 23825 2B dec hl 
23800 01 45 YU ld bc,5 23826 22 65 5C ld (23653),hl 
23893 ED BY ldir 23829 C9 ret 
23805 ED 53 65 5C Id (23653).de 
Programa 3.2 


El programa tiene varias rutinas importantes que requieren 
explicación. La asignación del valor O se realiza en la pila de la 
calculadora mediante defb 169, que es el literal STACK 8; los 
cinco bytes de la parte superior de la fila son después tomados 
y copiados en la memoria intermedia de la impresora para utili- 
zarse como almacén. Esto se lleva a cabo con una instrucción 
LDIR; se asigna el valor de HL para nosotros con la rutina de 
la calculadora (STACKEND-5). El valor inicial se imprime en 
11, 16 con la rutina PRINT VALUE y así se borra la pila. 

Lo mismo con la rutina ADD 2589. Requiere que el valor de 
250 esté colocado en la pila por medio de STACK VAL A, y 
después se pone en la pila el valor “almacenado”. Esto se rea- 
liza utilizando LDIR. El comienzo del valor almacenado se pone 
en el registro HL; el valor de STACKEND se coloca en DE. 
Después de la instrucción LDIR debe devolverse a la variable 
del sistema la nueva dirección de STACKEND. La calculadora 
se utiliza para sumar estos dos valores y para repetir las ru- 
tinas STORE y PRINT VALUE. De nuevo se añade una 
rutina de pulsación de tecla para permitir la salida de la 


cuenta, pero observe que la pila se reinicializará antes de volver 
al BASIC. 
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La cuenta hacia atrás requiere que el valor de comienzo se 
coloque en la pila (ver Capítulo 7 para números mayores que 
65535) y que se use el Literal 3 SUBSTRACT. Observe que en 
la resta, el valor “superior” es sacado desde el inferior. Al final 
de cada cuenta se requiere una prueba para ver si los bytes del 
“almacén” están todos a cero y, si es así, finaliza la cuenta (o si 
el segundo byte tiene el bit 7 a 1, el número es negativo). En la 
cuenta atrás es también necesario borrar la visualización del nú- 
mero anterior, antes de imprimir el nuevo, porque si se hace un 
cambio desde, por ejemplo, 1000 a 999, el “cero de las uni- 
dades” de 1000 podría permanecer en la pantalla, y el número 
que aparecería sería 99990. 

El programa COUNTDEMO, disponible en cinta, muestra 
como utiliza la rutina de contador para contar el tiempo de 
reacción. 

El programa BASIC es auto-explicativo y utiliza principal- 
mente las instrucciones de impresión. Se utilizan sentencias 
DATA para guardar los parámetros de x,y,h,w y a$ para la im- 
presión LARGE, según se trata en el Capítulo 2. 


CONTADOR DE REACCION 


Este programa demuestra el conteo con código/M 
combinando un CONTADOR DE REACCION y una ru- 
tina de conteo en código/M. 


La Spectrum seleccionará una letra 'A a Z' y la impri- 
mirá PAPER 6: INK 6. 


El código/M cambiará INK a INK O, seleccionará 


CAPS LOCK y contará el tiempo que tarda usted en 
pulsar la misma tecla. 


Habrá un retardo aleatorio antes de que aparezca la 
letra seleccionada. 


PULSE CUALQUIER TECLA PARA JUGAR 
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TIEMPO DE REACCION 


CONTEO 
61 


=] 


EXCELENTE 


OTRA VEZ? S/N 


12>PAPER 6:CLS 

15 DATA 87,143,1,2,"CONTAR” 

20 DATA 95,63,1,2,"LENTO” 

30 DATA 71,63,1,2"NORMAL” 

40 DATA 95,63,1,2"BUENO"” 

50 DATA 63,63,1,2, "MUY BUENO" 

60 DATA 63,63,1,2,'EXCELENTE” 

80 DATA 47,63,1,2,"NINGUN INTENTO” 

998 DATA 0,31,1,2"0TRA VEZ? s/n” 

95 DATA 55,125,5,2,"GRACIAS” 

96 DATA 183,79,3,2,"por" 

97 DATA 71,58,5,2,"JUGAR” 

100 DATA 24,79,5,2,"PARE LA CINTA” 

105 DATA 15,167,1,2 "TIEMPO DE REAC- 
CION” 

110 DATA 15,164,2,2," o 


129 DATA 24,15,1,2, "PULSE CUALQUIER 
TECLA” 

125 RESTORE 109 

130 FOR a=1 TO 4 

149 PAUSE 25 

169 INK 2: GO SUB 9000 

1704 NEXT a 

180 PAUSE 0: BORDER 5: PAPER 6: 
INK Y: CLS 

194 RESTORE 105 

220 INK Y: GO SUB 9009 

250 PRINT AT 3,0;"Este programa demues- 
tra el conteo con código/M combinando un 
CONTADOR DE REACCION y una rutina de 
conteo en código/M” 

260 PRINT '"La Spectrum seleccionará una 
letra (A a 2) y la imprimirá PAPER 6: INK 6.” 
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270 PRINT "El código/M cambiará INK a 
INKQ, seleccionará CAPS LOCK y contará el 
tiempo que tarda usted en pulsar la misma 
tecla.” 

284 PRINT '"Habrá un retardo aleatorio 
antes de que aparezca la tecla seleccio- 
nada.” 

2998 PRINT AT 20,5;"PULSE CUALQUIER 
TECLA PARA JUGAR” 

300 IF INKEY$=<>"" THEN GO TO 308 

302 IF INKEY$="” THEN GO TO 302 

305 CLS 

314 RESTORE 105: INK 1: GO SUB 9000 

328 INK 5: GO SUB 9009 

330 RESTORE 15: INK 2: GO SUB 9040 

358 INK 0: PLOT 182,114: DRAW 59 
4:DRAW 1-38:DRAW-—50,0: DRAW 8,38 

389 LET z=INT (RND*26+65) 

390 LET x=111: LET y=111: LET h= 
4: LET w=4: LET a$=CHR$ z 

400 INK 6: LET c=USR 32393 

410 FOR a=1 TO RND*288+50: NEXT a 

429 INK Y 

439 LET c=USA 237648 

449 LET a=PEEK 23728+256*PEEK 23 
729 

450 IF a>=140 OR a=0 THEN RESTO 
RE 80 

460 IF a<140 THEN RESTORE 29 

470 IF a<120 THEN RESTORE 39 

480 IF a<100 THEN RESTORE 49 

499 IF a<85 THEN RESTORE 59 

500 IF a<74 THEN RESTORE 60 

510 GO SUB 9004 
7000 RESTORE 99: INK 1: GO SUB 9049 
7019 IF INKEYS$<>"" THEN GO TO 7010 
7020 IF INKEYS$="" THEN GO TO 7820 
7030 LET d$=INKEYS 
7949 IF d$<>"y" THEN GO TO 8009 
7050 LET c=USR 23842: GO TO 3508 
8000 RESTORE 95 
8905 POKE 23843,29 
8010 LET c=USR 23842 
8015 POKE 23843,18 
8030 FOR a=1 TO 3 
8044 GO SUB 9008 
8050 NEXT a 
8069 STOP 
9900 READ x,y,h,w,a$ 
9010 LET c=USR 32393 
9020 RETURN 
9800 CLEAR 32334: LOAD ” "CODE : G 
0.105 
9900 SAVE "REACTION” LINE 9809 
9950 SAVE "LARGE"CODE 32335,265 

10 REM >27 5 STEP )- CLEAR THE 

N Y OVER !?X— RETURN 6 ?60£: RETU 
RN ( NEXT ??? OR STEP +-—>? STEP 

2 BEEP > 

BEEP >?xLEN (? CLEAR THEN ?n (O 
UT a! XPEEK VERIFY GO SUB CVAL 

X CLEAR THEN Vo<> 


Org 23768 
Encontrar variable z 
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23768 3E 7A id a,122 
Guardar en 23681 

23762 41 81 5C ld bc,23681 
23765 CD 7D 7E call 32381 


Establecer CAPS LOCK 
23768 FD CB 38 DE set 3,(iy+48) 


Intercambiar atributo de color 


23772 21 00 58 ld hl,22528 
11 

23775 TE ld a,(hl) 
23776 FE 36 cp 54 
PAPER 6 INK 6 

23778 20 02 jr nz, L2 
23780 36 30 ld (hl),48 
Reponer PAPER 6 INK Y 

L2 

23782 23 inc hi 
23783 7C ld a,h 
23784 FE 5B cp 91 
Fin de ATRIBUTOS ld 

23786 29 F3 jr nz,L1 


Empezar la cuenta 


23788 Y1 44 Uy ld bc,g 
Guardar cuenta en pila 

L3 

23791 C5 push bc 
Poner cuenta en CALCULADORA 
23792 CD 2B 2D call 11563 
Establecer PRINT AT 6,14 

23795 3E 02 ld a,2 
23797 CD 01 16 Call 5633 
23809 3E 16 ld a,22 
23882 D7 rst 16 
23803 3E 46 ld a,6 
23885 D7 rst 16 
23806 3E YE Id a,14 
23808 D7 rst 16 
Imprimir cuenta 

23889 CD E3 2D call 11747 
Obtener cuenta y sumarle 1 
23812 C1 pop bc 
23813 43 inc bc 
Examinar si cuenta < 65535 
23814 78 ld a,b 
23815 B1 orc 
23816 28 UF jr z, END 


Examinar tecla pulsada 


23818 FD CB 01 6E bit 5, (iy+1) 


23822 28 DF jr z,L3 
Encontrar INKEYS$ 
23824 3A M8 5C ld a,(23560) 
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Comparar a$ 


23827 21 81 5C ld hl,23681 
23830 BE cp (h)) 
23831 28 D6 jr nz,L3 
END 


Guardar cuenta 

23833 ED 43 B4 5C Id,(23728),bc 
Recuperar minúsculas 

23837 FD CB 38 9E res 3, (iy+48) 


23841 C9 ret 
Borrar 18 líneas inferiores 

23842 06 12 ld b,18 
23844 CD 44 QE call 3652 
23847 C9 ret 
Programa 3.3 
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4 NUMEROS ALEATORIOS 


Los números aleatorios son una parte esencial de la mayoría de 
los programas de juegos, tal como el retardo aleatorio y la elec- 
ción aleatoria de letras del programa REACTION TIME (pro- 
grama 3.3) del Capítulo 3. La asignación de un número aleato- 
rio en código máquina es realmente muy fácil; puede abordarse 
de dos maneras, dependiendo del “azar/extensión” del número. 

El primer método, que realmente no produce un número 
aleatorio verdadero, pero que es lo suficientemente bueno para 
muchos juegos, consiste en utilizar las variables FRAMES y 
SEED de forma distinta a como se usan normalmente. Es de- 
cir, si la extensión del número aleatorio es 0-1, 0-3, 0-7, 0-15, 
0-31, 0-63, 0-127, 0-255 este método es válido. La rutina exige 
que el registro HL se cargue con el valor de SEED (23670); el 
registro DE se debe cargar con el byte alto de SEED) y el byte 
bajo de FRAMES (23671); se suman los valores de los dos re- 
gistros y se almacena la suma de nuevo en la variable SEED 
para el siguiente “número aleatorio”. El registro A se carga 
después con el H o el L y se realiza un “AND a” para enmasca- 
rar los bits no deseados; de ahí la extensión de número aleato- 
rio indicada anteriormente. Por ejemplo, el programa 4.1 nos 
da un ejemplo de INT (RND * 32) enmascarando los bits 7-5 
del valor contenido en el registro A para conseguir números 
de 0 a 31. 


org 23769 Set PRINT AT b,198 
14 números aleatorios 23778 3E 02 ld a,2 
23760 46 YA Id b,19 23780 CD 01 16 call 5633 
L1 23783 3E 16 ld a,22 
23762 C5 push bc 23785 D7 rst 16 
Load HL,(SEED) 23786 78 ld a,b 
23763 2A 76 5C ld hl (23670) 23787 D7 rst 16 
23766 ED 5B 77 5C ld de,(23671) 23788 3E VA ld a,18 
23770 19 add hl,de 23790 D7 rst 16 
SEED modificado para siguiente número Obtener número aleatorio y ponerlo en 
23771 22 76 5C ld (23679),hl la PILA CALCULADORA 

23791 F1 pop af 
Enmascarar BITS 7-5 23792 CD 28 2D call 11560 
23774 7D ld a,1 23795 CD E3 2D call 11747 
23775 E6 1F and 31 Imprimirlo 
Guardar número aleatorio Obtener cuenta de números 
23777 F5 push af 23798 C1 pop bc 
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repetir hasta 10 números 


23799 18 D9 dinz L1 
23881 C9 ret 
Programa 4.1 


PROGRAMA 1 EJEMPLO DE SALIDA IMPRESA 


Como se dijo anteriormente esto es útil si se requiere un “nú- 
mero aleatorio” de esta extensión. Es un poco más complicado 
obtener INT (RND * 23), por ejemplo, mediante: 


LD A, H 
AND 15 
LD H, A 
LDA, L 
AND 7 
ADD A, H 


Habrá observado que en el programa 4.1 el registro B se ha 
utilizado para guardar la cuenta del bucle (diez veces) y que 
este valor también se utiliza para la rutina PRINT AT b, 10;. 
El ejemplo impreso muestra lo aleatorio de la rutina. 

Para producir un número aleatorio de la misma forma que 
con la orden INT (RND * n) del BASIC necesitaremos utilizar 
la rutina RND de la ROM, pero desgraciadamente esto no se 
puede hacer con una instrucción de llamada a RND ya que la 
rutina no vuelve después de ser ejecutada. La rutina ocupa las 
direcciones desde 9725 hasta 9765 de la ROM, y emplea la cal- 
culadora una vez más, para modificar el valor de SEED. Co- 
mienza extrayendo el valor existente de SEED, y termina con 
el nuevo valor duplicado en la parte superior de la pila. Se cam- 
bia el valor superior y se utiliza para actualizar SEED. Se mo- 
difica el valor que queda para dar un valor de 0 a 1 (pero no 1) 
que se utiliza para RND. Para utilizar esta rutina es necesario 
copiarla en RAM, y acceder a ella desde su programa como una 
subrutina. El programa 4.2 le muestra este método utilizado 
para obtener INT (RND * 12345) e imprimir 44 respuestas uti- 
lizando CHR$ CODE 6 para que la impresión se haga en dos 
columnas. 
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INT (RAND*12345) 


org 23760 

CLS 

23760 3E 42 ld a,2 
23762 CD 01 16 call 5633 
23765 CD 6B 9D call 3435 


44 números aleatorios 


23768 06 2C Id b,44 
14 
237798 C5 push bc 


COPIA de ROM 9725 a 9765 


23771 ED 4B 76 5C ld bc, (23670) 
23775 CD 2B 2D call 11563 


23778 EF rst 49 
PILA (1) 
defb 161 


de 
defb 15 

PILA (75) 
defbo 52 55 22 


defb 4 

PILA (65537) 

defb 52 128 65 Y Y 128 
LITERALES 

defb 59 2 

PILA (1) 

defb 161 


defb 3 
Duplicar 


Programa 4.2 


defb 49 

Fin RUTINA CALC 

defb 56 

Poner valor superior en BC 
REGISTRO (INT M-65535) 

23797 CD A2 2D call 11682 


Guardar nuevo SEED 
23804 ED 43 76 5€C Id (23670),bc 
Manipular BYTE EXPONENTE 


23804 7E ld a,(hl) 
23805 A7 and a 
23806 28 013 jrz,L2 
23808 D6 18 sub 16 
23810 77 ld (h!),a 
L2 

PILA 12345 

23811 01 39 38 ld bc,12345 
23814 CD 2B 2D call 11563 
23817 EF rst 49 
defb 4 

LITERAL 'ENTERO' 

defb 39 

Fin RUTINA CALC 

defb 56 

Imprimir valor de PILA 

23821 3E 02 ld a,2 
23823 CD 01 16 call 5633 
23826 CD E3 2D call 11747 
PRINT, 

23829 3E 06 ld a,6 
23831 D7 rst 16 


Obtener cuenta 


23832 C1 pop bc 
23833 14 BF dinz L1 
23835 C9 ret 


EJEMPLO DE SALIDA IMPRESA DEL PROG. ANTERIOR 


1857 3558 
7666 7091 
1037 3758 
10296 6834 
6415 12044 
3058 7178 
TL2r 11711 
3057 7150 
2940 10693 


La rutina RND utiliza algunos literales nuevos que pueden 


servir también para otras rutinas: 


e El LITERAL 161 es STACK NUMBER 1. 
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e El LITERAL 52 es STACK DATA (es normalmente un nú- 
mero expresado en forma reducida — ver Capítulo 7). 

e El LITERAL 50 es n-mod—m. 

e El LITERAL 2 es DELETE (el cociente). 


Los dos últimos literales son de poca utilidad para programas 
de juegos. La rutina —CALL 11682— es utilizada por la ROM 
para recuperar el valor superior de la pila y colocar el valor en- 
tero en el registro BC. En este caso el valor entero se redon- 
dea por defecto o por exceso, según sea necesario, para obtener 
el número más próximo. Hay también una rutina similar 
—CALL 11733— que coloca en el registro A el valor superior 
de forma semejante. La rutina ROM copiada acaba en 238184. 

La rutina desde 23811 a 23828 modifica el valor RND de la 
pila. Se apila el valor 12345 y después se multiplica por el valor 
RND. Después se utiliza un nuevo literal, el 39; éste obtiene 
cualquier valor decimal del resultado de redondear por defecto 
el valor de 12345 RND (como en el RND del BASIO), y así 
deja INT (RND * 12345) en la parte superior de la pila. Des- 
pués se emplea la rutina PRINT VALUE para imprimir 44 va- 
lores en dos columnas, y los resultados muestran que estos va- 
lores son realmente aleatorios. 

El programa de demostración 4.3 muestra como se utiliza 
realmente RND. En este caso se utiliza RND para imprimir 
rascacielos de altura al azar, con caracteres y colores aleatorios, 
y podría utilizarse en programas del tipo “bombas sobre la ciu- 
dad” (city bomb). Todos los UDGs para un programa completo 
han sido ya asignados y puede que desee desarrollar este pro- ' 
grama. El programa “RNDDEMO” de la cinta utiliza el pro- 
grama BASIC para conseguir la primera visualización de panta- 
lla; esta se mantiene en la pantalla durante unos segundos, y 
después se utiliza la rutina en código máquina para imprimir la 
siguiente visualización, mostrando la velocidad del Código Má- 
quina y también la función RND. 

Un punto a considerar cuando se usa la instrucción RND del 
BASIC con llamadas USR en código máquina es que debe utili- 
zar LET “variable” = USR “dirección” para llamar al código 
máquina, ya que RANDOMIZE USR “dirección” afectará al ge- 
nerador de números aleatorios. Puede utilizar también PRINT 
USR dirección, si no le importa que el valor contenido en el re- 
gistro BC se imprima al volver al BASIC. En la rutina en có- 
digo máquina, PAPER y los colores INK se establecen utili- 
zando LD (IY + 83), 47 en vez de LD A,47: LD (IY + 83) A, 
como en ejemplos anteriores, ahorrando así memoria y mos- 
trando la utilidad del registro IY como puntero. Esto se de- 
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muestra posteriormente con más detalle en el programa cuando 
IY se pone a 23296, comienzo de la memoria intermedia de la 
impresora, y es utilizado para LD (23296), 22 (AT) y LD 
(23299), 16 (INK). Sin embargo, cuando se altera el valor conte- 
nido en IY hay que tener cuidado de que si se hace una llamada 
ROM que emplee el registro IY, el valor debe reinicializarse a 
23610 antes de hacer la llamada, o la rutina ROM se descontro- 
lará y se puede originar una caída. 

Antes de llamar a la rutina de número aleatorio se carga el 
registro A con el número RND * n y éste se almacena después 
en la dirección 23681 (una dirección no utilizada por las varia- 
bles del sistema). Este número es después recogido en la rutina 
RND y utilizado para obtener INT (RND * n), el valor que se 
coloca en el registro A, llamando a 11733 antes de regresar de 
la rutina. La secuencia intermedia de la impresora es utilizada 
para guardar la información de PRINT en orden: AT (22), x, y, 
INK (16), b$, as. 


1 REM >? PASO EL” BORRAR 65/>? 

PASO? 

10 BORDER 0: PAPER 5: INK 7: C L5 

20 FOR c=31 TOY STEP —=1 

30 LET | =19-INT (RND*19) 

40 LET a5=CHR$ INT (AND* "2+148) 

45 LET b$=CHRS INT (RND*4) 

50 PRINT AT L —1,c;"4” 

60 FOR a=1I TO 29 

74 PRINT AT a,c¡CHR$ 16+bS+a$5 

840 NEXT a 

990 PRINT AT a, c;”N” 

100 NEXT c 

119 LET x=0: LET y=0: LET a$=" 
MS 


139 PRINT AT x,y;a$ 

149 PRINT 40; "WE COMBUSTIBLE 10000 
BOMBAS 
100 E DISPAROS 109 E” 

150 RETURN 

500 DATA 24,79,5,2,"PARE LA CINTA” 

510 DATA 15, 167, 1, 2, "NUMEROS ALEATO- 
RIOS” 

520 DATA 15,164,1,2," 

525 DATA 24,15,1 ,2, "PULSE CUALQUIER TE- 
CLA” 

539 DATA 47,164,2,4,"BASIC” 

549 DATA 31,164,3,2,"CODIGO MAQUINA” 

604 BORDER 4: PAPER 6: INK Y: C L5 

605 RESTORE 5090 

610 FOR a=1 TO 4 

629 INK a: GO SUB 8000 

634 PAUSE 50: NEXT a 

644 PAUSE Y: CLS 

645 PRINT INK Q;¡AT 8,0; "Este programa 
muestra la rutina RND en código Máquina y 
compara la velocidad de las versiones BASIC y 
código Máquina. 

654 RESTORE 525 
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655 PAUSE 100 
668 FLASH 1: INK 2: PAPER 7: GO 
SUB 8009: FLASH Y 
674 PAUSE 4: CLS 
1000 LET z=1 
1910 GO SUB 2048 
1020 GO SUB 19 
1025 LET z=z+1 
1030 GO SUB 2008 
1049 GO SUB 3048 
1045 LET 2=2+1 
1058 GO TO 1010 
2000 FOR a=1 TO 400: NEXT a: CLS 


2010 PAPER 8: INK (0: RESTORE 
530+(10*(2/2=INT (2/2))): GO SUB 8000 
2020 FOR a=1 TO 200: NEXT a: RETURN 


3000 LET c=USR 23760: GO TO 110 
8000 READ x,y,h,w,a$ 

8010 LET c=USR 32393 

8020 RETURN 


9998 CLEAR 32334: LOAD "Udg"CODE USR 


"a": LOAD ""CODE : GO TO 549 

9999 SAVE "RNDDEMO” LINE 9998: S 
AVE "Udg"CODE USR "a”,168: SAVE 
"LARGE"CODE 32335,265 


org 23760 

BORDER Y 

23769 3E 04 ld a,g 
23762 CD 98 22 call 8859 


PAPER 5 INK 7 


23765 FD 36 53 2F ld (iy+83),47 


CLS 

23769 3E 02 ld a,2 
23771 CD 91 16 call 5633 
23774 CD 6B 0D call 3435 


Establecer IY como PUNTERO 


23777 FD 21 00 5B ld iy,23296 


23781 FD 36 29 16 ld (iy+8),22 
23785 FD 36 43 18 ld (iy+3),16 


Reinicializar |Y 
23789 FD 21 3A 5C ld iy,23610 


Contador de columnas 

23793 3E 1F ld a,31 
23795 32 42 58 Id (23298),a 
19-INT (RND*19) 


23798 3E DA ld a,18 
23809 32 81 5C ld (23681),a 
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23803 CD 61 5D call RND 


23806 6F ld la 

23807 3E 13 Id a,19 
23809 95 sub 1 
23810 32 01 5B ld (23297) a 


INT (RND*2+ 148) 


23813 3E 02 ld a,2 
23815 32 81 5C ld (23681),a 
23818 CD 61 5D call RND 
23821 C6 94 add a,148 
23823 32 45 5B Id (23301),a 
INT (RND*4) 

23826 3E M4 ld a,4 
23828 32 81 5C ld (23681),a 
23831 CD 61 5D call RND 
23834 32 M4 5B ld (23399),a 


PRINT AT x—1,y CHR$ 147 


23837 3E 92 ld a,2 
23839 CD 81 16 call 5633 
23842 3E 16 ld a,22 
23844 D7 rst 16 
23845 3A 01 5B ld a,(23297) 
23848 3D dec a 
23849 D7 rst 16 
23858 3A 02 5B ld a,(23298) 
23853 D7 rst 16 
23854 3E 93 ld a,147 
23856 D7 rst 16 

1:2 


FOR a=x TO 28 
PRINT AT a,y CHR$ 16+b$+a$5 


23857 11 04 5B ld de,23296 
23864 41 06 19 ld bc,6 
23863 CD 3C 29 call 8252 
23866 3A 01 5B ld a, (23297) 
23869 3C inc a 

23874 32 Y1 5B ld (23297),a 
23879 32 01 5B ld (23297),a 
23873 FE 15 cp 21 

NEXT a 

23875 20 EC jr nz,L2 


PRINT AT a,y CHRS 153 


23877 3E 99 ld a,153 
23879 32 05 5B ld (23301),a 
23882 3E 07 ld a,7 
23884 32 M4 5B ld (23300),a 
23887 11 04 5B ld de, 23296 
23899 91 06 04 ld bc,6 
23893 CD 3C 29 call 8252 
23896 3A 02 5B ld a,(23298) 
23899 3D deca 
23900 FE FF cp 255 
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SIGUIENTE COLUMNA 


23902 24 93 jrnz,L1 
23904 C9 ret 


RUTINA RND DE ROM 


RND 

23995 ED 4B 76 5C Id bc, (23670) 
23999 CD 2B 2D call 11563 
23912 EF rst 49 


defb 161 15 52 55 22 4 52 128 
defb 65 Y Y 128 59 2 161 3 49 56 


23931 CD A2 2D call 11682 
23934 ED 43 76 50 ld (23670),bc 
23938 7E ld, a, Chi) 
23939 A7 and a 
23948 28 U3 jr z,L3 
23942 D6 10 sub 16 
23944 77 ld (hl),a 

INT (RND*PEEK (23681)) 

L3 

23945 3A 81 5C ld a,(23681) 
23948 CD 28 2D call 11569 
23951 EF rst 49 

defb 4 39 56 

VALOR en A 

23955 CD D5 2D call 11733 
23958 C9 ret 


Programa 4.3 
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+ EL TECLADO 


Hay dos métodos para leer el teclado en código máquina. 
Ambos son útiles, pero el método elegido depende del tipo de 
programa. 


Utilización de la variable LAST KEY 


La ROM de la Spectrum contiene una rutina KEYSCAN y DE- 
CODE a la cual se accede 50 veces durante cada segundo. La 
rutina también actualiza el contador FRAMES. 

El código de carácter de la última tecla pulsada es almace- 
nado en la variable LAST KEY (23568) y si es una nueva tecla, 
entonces el bit 5, (IY + 1) se pone a uno. Incidentalmente la 
orden HALT espera a que se haga la siguiente llamada a 
KEYSCAN antes de continuar con la rutina en código máquina. 

Con la anterior información podemos escribir el equivalente 
de PAUSE Q. 


org 23768 
ESPERAR A QUE SE PULSE TECLA 


L1 
23768 FD CB 81 6E bit 5.(iy+1) 
23764 28 FA jrz,L1 

23766 FD CB 91 AE res 5(iy+1) 


CONTINUAR CON PROGRAMA 


23774 C9 ret 


Programa 5.1 


En el programa 5.1 puede ver que se examina constante- 
mente el bit 5, (IY + 1) para ver cuando es uno, y sólo cuando 
esto ocurre (indicando una nueva pulsación de tecla) el pro- 
grama continúa. Observar que después de ello hay que poner a 
cero el bit 5 (IY + 1), ya que en caso contrario si se utilizase 
una rutina PAUSE similar antes de la siguiente llamada 
KEYSCAN, el bit 5 podría estar a uno y pasarse por alto la ru- 
tina PAUSE. 
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Utilización de IN A, (C) 


Es idéntica a la orden IN del BASIC leyendo la mitad de la fila 
especificada por el valor que contiene el registro BC, y se trata 
en el manual de la Spectrum. El valor que queda en A indica 
qué teclas se pulsan de esa mitad de fila. Cada mitad de fila 
contiene cinco teclas, y los bits 4-0 de A contienen el estado de 
esas teclas (los bits 7-5 están normalmente a uno), el bit 0 se 
utiliza para indicar el estado de la “tecla externa” en la mitad 
de fila, y el bit 4 el estado de la “tecla interna”. 

Cuando no se pulsa ninguna tecla todos los bits están a uno, 
y A contendrá 255. Si se pulsa una tecla su bit se pondrá a 
cero. Por ejemplo, si se pulsase la tecla 4 entonces el bit 0 se 
pondría a cero y A podría valer 254. Puede ver que con este 
método tenemos la posibilidad de leer más de una tecla a la vez, 
cuando se pulsan varias al mismo tiempo, examinando el valor 
de A o los bits individuales de A. Esto podría ser útil en un 
juego para dos o más jugadores o para mover cosas en dos di- 
recciones (por ejemplo hacia arriba y hacia abajo) al mismo 
tiempo. El programa 5.2 muestra la orden IN utilizada para es- 
perar hasta que se pulse la tecla 4. 


org 23768 

LEER MITAD FILA 6-0 

L1 

23760 19 FE EF ld, bc,61438 
23763 ED 78 in a,(c) 


EXAMINAR SI TECLA Y ES PULSADA 


23765 CB47 bit Va 
23767 C8 ret z 
23768 18 F6 jr La 
Programa 5.2 


La llamada a KEYSCAN de la ROM se hace 50 veces du- 
rante cada segundo incluso durante nuestro propio programa 
en código máquina y, por ello, el programa es más lento. Si ne- 
cesitamos una velocidad extra, por ejemplo, para la visualiza- 
ción enrollada de pixel, podemos parar esta interrupción de 
nuestro programa utilizando la instrucción DI. Sin embargo, 
esto significa que mientras esté deshabilitada la interrupción no 
podemos utilizar la rutina LAST KEY para leer el teclado (a 
menos que hagamos nosotros la llamada a la rutina ROM) y de- 
bemos recurrir a la instrucción IN. El programa 5.3 muestra 
como se utiliza la instrucción DI. 


39 


org 23769 EXAMINAR SI TECLA Y ES PULSADA 


DESHABILITAR 23766 CB 47 bit Ma 


23768 29 F7 jrnz,L1 
23768 F3 di 
HABILITAR 
LEER MITAD FILA 6-9 
23778 FB ei 
11 
23761 91 FE EF ld bc,61438 23771C9 ret 
23764 ED 78 in a,(c) 
Programa 5.3 


Observe que la instrucción El debe utilizarse antes de volver 
al BASIC, o bien quedará inutilizado el teclado. Intente probar 
el programa sin la instrucción El y vea qué sucede. No se pro- 
ducirá ningún daño, pero la Spectrum tendrá que desenchufarse 
y volverse a conectar para recuperar la función del teclado. 

El programa 5.4 muestra la forma de obtener PAUSE n para 
conseguir un retardo de tiempo 0, como en el BASIC; continúa 
si se pulsa una tecla. El programa utiliza el hecho de que el 
examen de tecla ocurre cada 0,02 segundos y de que HALT es- 
pera a que se examine el teclado. 


org 23769 23768 20 M5 jr nz,L2 
Establecer RETARDO 10 SEG DISMINUIR CONTADOR 

23770 UB dec bc 
23769 91 F4 Y! ld bc,508 23771 78 ld a,b 
L1 23772 B1 ora 
LAZO DE PAUSA 23773 20 F4 jr nz, L1 
23763 76 halt 


L2 
23775 FD CB 41 AE res 5,(iy+1) 
EXAMINAR SI SE PULSA TECLA 
23779 C9 ret 
23764 FD CB 01 6E bit 5,(iy+1) 


Programa 5.4 


El programa 5.5 se encuentra en la cinta “KEYDEMO” y 
hace uso del método LAST KEY de lectura del teclado para 
producir un programa de mecanografía simple que permite el 
borrado y la modificación de lo escrito. 

La posición de impresión actual es indicada por un cursor 
parpadeante. Observe que CAPS SHIFT y “2” mueve la posi- 
ción de impresión a la siguiente PRINT COMMA TAB; CAPS 
SHIFT y “5” produce un espacio hacia atrás (pero observe el 
error de ROM por el cual no se puede volver un espacio desde 
el comienzo de la línea 1 hasta el final de línea 0), y ENTER 
produce un salto de línea. La tecla BREAK es inoperante en 
código máquina por lo que he utilizado “STOP” para volver al 
BASIC. 


40 


INSTRUCCIONES 


Este programa demuestra el método de lectura del te- 
clado en código/M utilizando la variable LAST KEY y 
examinando el BIT 5 de FLAGS para ver si es una 
NUEVA tecla. 


El cursor puede volver atrás usando la tecla 5 de cur- 
sor para corregir o borrar cuando se escribe. 


ENTER le dará una nueva línea, y como la tecla 
BREAK le da un SPACE, utilice 'STOP' para volver al 
BASIC. 


El código /M usa 43 bytes. 


PULSE CUALQUIER TECLA 


Como ocurre con la instrucción INKEY$ del BASIC no se 
leen ni las teclas de doble-cambio ni las teclas de modo gráfico. 
Si desea examinar o imprimir teclas con doble-cambio, debe es- 
tablecer una tabla DATA de caracteres sin cambio y de sus 
equivalentes con doble-cambio. Entonces si LDA (LAST KEY) 
regresa con el valor 14 en A, indicando que se han pulsado dos 
teclas con cambio, se necesitará una rutina para leer la si- 
guiente tecla pulsada y convertir su carácter sin cambio en su 
correspondiente con cambio utilizando la tabla DATA. 


10 REM >? STEP ? 

20>DATA 24,79,5,2, "PARE LA CINTA” 

30 DATA 7,170,2,3,"'"MAQUINA DE ES- 
CRIBIR” 

50 DATA 24, 15, 1, 2"PULSE CUAL- 
QUIER TECLA” 


60 DATA 39,174,1,2,"INSTRUCCIONES” 
65 RESTORE 
74 BORDER 4: PAPER 6: CLS 
80 FOR A=1 TO 4 
85 PAUSE 20 
99 INK A: PAPER 8: GO SUB 8209 
199 NEXT A 
110 PAUSE Y: PAPER 7: CLS 
120 INK 2: PAPER 8: 60 SUB 8048 
139 INK Y: PRINT AT 3,0; "Este programa 
demuestra el método de lectura del teclado 
en código/M utilizando la variable LAST KEY 
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y examinando el BIT'S de FLAGS para ver si 
es una NUEVA tecla. 

149 PRINT 'El cursor puede volver atrás 
usando la tecla 5 del cursor para corregir o 
borrar cuando se escribe.” 

150 PRINT "ENTER le dará una nueva lí- 
nea y como la tecla BREAK le da un SPACE, 
use 'STOP* para volver al BASIC.” 

160 PRINT ' "El código /M usa 43 bytes” 

200 RESTORE 50: INK 2: GO SUB 8009 

210 PAUSE 0: BRIGHT 1: CLS 

220 INK Y: RANDOMIZE USR 237608 

230 STOP 

8009 READ x, y h,w,a$ 

8014 RANDOMIZE USR 32393 

80204 RETURN 

9999 CLEAR 32334: LOAD ""CODE : GO 
TO 28 

9999 SAVE "LARGE” CODE 32335,265 


org 237648 
Abrir canal 2 


23760 3E U2 ld a,2 
23762 CD 41 16 call 5633 


ESTABLECER OVER 1 


L1 
23765 FD 36 57 83 ld (iy+87),3 


CURSOR PARPADEA EN LAZO DE ESPERA 


23769 3E 8F ld a,143 
23771 D7 , rst1i6 
23772 3E Y8 ld a,8 
23774 D7 rst 16 
23775 3E 8F ld a,143 
23777 D7 rst 16 
23778 3E 08 ld a,8 
23780 D7 rst 16 


ESPERAR PULSACION DE TECLA 


23781 FD CB 01 6E bit 5, (iy+1) 
23785 28 EA jrz,L1 
23787 FD CB 01 AE res 5.(iy+1) 


ESTABLECER OVER £ 
23791 FD 36 57 98 ld (iy+87),0 
OBTENER LAST KEY (ULTIMA TECLA) 


23795 3A 08 5C ld a,(23560) 
EXAMINAR SI ES 'STOP' 

23798 FE E2 cp 226 
238440 C8 ret z 


IMPRIMIR CHRS 
23801 D7 rst 16 
23802 18 D9 jr La 


Programa 5.5 
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6 MOVIMIENTO 


Ahora que somos capaces de escribir en la pantalla y de leer el 
teclado podemos buscar métodos de animación. Esto es, por 
supuesto, parte esencial de cualquier programa de juegos en 
“tiempo real”. En este Capítulo estudiaremos métodos para dar 
la impresión de movimiento: 


1. Movimiento de primer plano —barcos, marcianos, gente, 
etc. 

2. Movimiento del fondo —estrellas, planetas, fragmentos de 
cielo, etc. 

3. Movimiento de ambos, 1 y 2. 

El tipo de movimiento empleado por la mayoría de las per- 
sonas que hacen software es de “cuadro de carácter”; éste per- 
mite que los programas sean rápidos y la utilización de todos 
los colores. La pantalla se divide en 24 filas y 32 columnas, y, 
cuando se mueve un carácter, cambia desde su posición actual 
hasta la fila/columna adyacente; este movimiento es tosco pero 
no a sacudidas. Si se emplea el movimiento de pixel entonces, 
especialmente cuando se trata de movimientos de primer tér- 
mino, los caracteres deben redibujarse. Si ha utilizado la orden 
PLOT del BASIC se habrá dado cuenta de que normalmente 
nos quedamos restringidos al uso de dos colores (PAPER e 
INK). 


Movimiento de primer plano de un cuadro 
de carácter 


El primer paso es definir (o inicializar) la posición de comienzo 
del carácter y, utilizando cualquiera de los métodos citados en 
el Capítulo 5, leer el teclado, y actualizar la posición del carác- 
ter de acuerdo con ello. La actualización de la posición del ca- 
rácter es realizada en un “grupo duplicado” de datos de posi- 
ciones de comienzo. Cuando la actualización ha sido completada 
habrá dos grupos de datos: el primero contendrá la posición de 
pantalla actual y el segundo la nueva posición. Se llevan a cabo 
algunas pruebas, por ejemplo, para ver si la nueva posición está 
aún en la pantalla, y se realiza la corrección. Para conseguir la 
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impresión de movimiento de parpadeo-libre, sacamos el carácter 
existente y lo volvemos a visualizar inmediatamente en su 
nueva posición. El método que yo uso generalmente consiste en 
utilizar OVER 1 y REPRINT para volver a visualizar el carác- 
ter en la posición anterior; de esta forma, sacándolo, y utili- 
zando todavia OVER 1 volvemos a repintar en la nueva posi- 
ción. Esto nos permitirá mover el carácter sobre el fondo sin 


borrarlo. 


org 23760 23835 Y1 YA LY ld bc,18 
DESHABILITAR TECLADO 23838 CD 3C 29 call 8252 
L7 
23760 F3 di 
23761 18 18 jr START TRANSFERIR DATA 2 A STORE 
DATOS UDG 
23841 11 09 5B ld de,23296 
DATA 1 23844 21 F9 5C Id hIDATA2 
CHRS 144 23847 Y1 YA UU ld bc,19 
defb YB Y 15 24 49 226 225 224 23850 ED BO 
CHR$S 145 
defb 24 64 255 255 153 255 231 Idir 


defb 68 

CHRS 146 

defb YB Y 240 24 140 71 135 7 
EMPEZAR 


ESTABLECER UDG's 


23787 ED 5B 7B 5C Id de,(23675) 23855 91 FE EF Id bc,61438 

23858 ED 78 in a,(c) 
23791 21 D3 50 ld A,DATA1 23869 CB 47 bit Da 
23794 Y1 18 08 Id bc,24 23862 28 91 irnz,L1 
23797 ED B9 ¡dir 23864 24 inc h 
23799 18 BA jr BEGIN 1 

23865 CB 4F bit 1,a 
Print CHR$ DATA 23867 20 Q1 jr nz,L2 
AT x,y INK 8 PAPER 8 23869 25 dec h 
CHR$ 144 145 146 L2 

23870 01 FE F7 ld bc,63486 
DATA2 23873 ED 78 in a(c) 
defb 2249 168178 23875 CB 47 bit Ba 
defb 144 145 146 23877 29 01 jr nz,L3 
BEGIN 23879 2D dec | 

L3 
BORDER 5 23880 01 FE FB Id bc,64518 
23811 FD 36 GE 28 ld (iy+14),49 

23883 ED 78 in a.(c) 
PAPER 1 INK 7 23885 CB 47 bit La 
23815 FD 36 53 GF ld (iy+83),15 23887 29 91 ir mz,L4 
CLS 23889 2C inc 1 
23819 3€ 92 ld a/2 L4 
23821 CD 01 16 call 5633 EXAMINAR SI ESTA QUIETO EN PANTALLA 
23824 CD 6B 4D call 3435 

23898 7D Id a, 
IMPRIMIR SERIE 23891 FE 16 cp 22 

23893 24 43 jr nz,L5 
23827 3E 02 ld a,2 23895 2D dec 1 
23829 CD 81 16 call 5633 23896 18 05 jr LG 
23832 11 F9 5C Id de,DATA2 L5 
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OBTENER x y DE STORE 
23852 2A 01 5B ld hl,(23297) 


EXAMINAR SI SE PULSA TECLA 


23898 FE FF cp 255 REIMPRIMIR EN NUEVA POSICION 
23908 20 91 jr nz,L6 


23982 2C inc | 23943 11 08 58 Id de,23296 
Le 23946 01 DA 00 Id bc,18 
23903 70 ld ash 23949 CD 3C 28 call 8252 
23904 FE 1€ cp 38 

23986 20 143 jr nz,L8 ACTUALIZAR DATA2 PARA SIGUIENTE VEZ 
239098 25 dec h 23952 11 F9 5C ld de, DATA2 
23989 18 85 jr LO 

pe 23955 21 09 58 id hi,23296 
AN o 23958 41 YA YU ld bc,18 
23913 28 81 jr nz,L9 33961 ED Bg dr 

23915 24 inc h 

L9 


LAZO DE RETARDO 
EXAMINAR SI NO SE MUEVE 


23963 21 88 13 ld hl,5000 
23916 ED 5B 01 5B Id de,(23297) 111 
23929 AF xor a 23966 2B dec hl 
23921 ES push hi 23967 7C Id a,h 
23922 ED 52 sbc hl,de 23968 B5 or 1 
23924 El pap hl 23969 20 FB jr nz,L11 
SI NO SE MUEVE ENTONCES PASAR 
POR ALTO PRINK OVER 1 EXAMINAR SI PULSA 'SPACE” 
23925 28 2C jrz,L12 qn 
GUARDAR NUEVOS PARAMETROS x,y 23971 91 FE 7F ld bc,32766 
23974 ED 78 in a,(c) 
23976 CB 47 bit Va 
23927 22 901 5B ld (23297),hl 23978 C2 21 5D jp nz,L7 


ESTABLECER OVER 1 

REINICIALIZAR OVER Y 
23938 FD 36 57 93 Id (iy+87),3 

23981 FD 36 57 00 ld (iy+87),9 
BORRAR POSICION ANTIGUA 

ACTIVAR TECLADO 


23934 11 F9 5C ld de,DATA2 
23937 Y1 YA QU ld bc,19 23985 FB ei 
23944 CD 3C 20 call 8252 23986 C9 ret 


Programa 6.14 


El programa 6.14 muestra el método explicado anterior- 
mente. Se mueve un carácter, parecido a una nave espacial, so- 
bre la pantalla, utilizando las teclas 9/0 para izquierda/derecha y 
1/Q para arriba/abajo. Con la “barra de espaciado” volvemos al 
BASIC. La nave espacial puede moverse en dos direcciones a la 
vez y puede volar por la pantalla sin cambiar el fondo que ante- 
riormente usted haya establecido. El carácter se imprime con 
INK 8; PAPER 8); y así tomará los colores de los cuadros según 
se defina el atributo de cada cuadro. La velocidad de movi- 
miento es controlada con el lazo de retardo y se hace una 
prueba para ver si la nave está estacionaria. Si lo está, en- 
tonces se omite la rutina de revisualización ya que podría origi- 
nar el parpadeo de la nave por el borrado y la revisualización 
continúa en la misma posición. Puede modificar el programa 
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para hacer posible que la nave vuele fuera de la pantalla y rea- 
parezca por el otro lado, poniendo a cero “y” cuando la nave so- 
brepase los parámetros de la pantalla. 

El movimiento de carácter múltiple es básicamente lo mismo 
que el anterior y cada carácter tiene su propio grupo de PRINT 
AT DATA. La rutina en código máquina es muy rápida, como 
puede demostrarse utilizando LD HL, 1 para el lazo de retardo, 
porque la TV no puede imprimir todas las posiciones cuando el 
carácter se mueve. Encontrará que la mayoría de los pro- 
gramas necesitan algún tipo de lazo de retardo para mantener 
la imagen durante un momentos antes de que cambie. 


Movimiento de fondo de un cuadro de carácter 


Siempre que el movimiento de primer plano requiera guardar 
en memoria la posición del carácter y que siga la pista de los 
movimientos, el movimiento de fondo requerirá normalmente el 
desplazamiento de la visualización completa de la pantalla (o 
bloques de ella) en una dirección conocida sin tener que saber 
exactamente donde está cada cosa. 

Este movimiento se realiza usualmente en una de las cuatro 
direcciones —arriba, abajo, izquierda y derecha— y requiere 
normalmente ambas cosas, los caracteres y sus atributos. Si un 
fondo de pantalla es desplazado por una posición de carácter 
tendremos una posterior elección concerniente a los caracteres 
desplazados fuera de la pantalla. Podemos eliminarlos e impri- 
mir espacios en la fila/columna formada al otro lado de la panta- 
lla, o podemos almacenarlos con sus atributos y reimprimirlos 
en su lugar correspondiente al otro lado de la pantalla, produ- 
ciéndose así un efecto de enrosque, que es útil para los pro- 
gramas de juegos. 

Los siguientes programas del 6.1B al 6.16 muestran un 
ROLL y un SCROLL en las cuatro direcciones; en primer lugar 
los atributos y después los caracteres de pantalla. Estos pro- 
gramas se pueden modificar fácilmente para efectuar un ROLL 
y un SCROLL para posiciones de pantalla, quedando el resto 
inmóvil. Observe la capa peculiar de la visualización de la pan- 
talla que se divide en tres bloques de ocho filas. Cada fila se di- 
vide a su vez en ocho líneas de 32 bytes por línea. El mapa de 
memoria empieza en la fila 1 línea 1 y continúa con los 32 bytes 
de esa línea; después cambia a la fila 2 línea 1, fila 3 línea 1 y 
así sucesivamente hasta la fila 8 línea 1 completando el mapa de 
256 bytes. Entonces se vuelve a saltar a la fila 1 línea 2, fila 2 
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línea 2, fila 3 línea 2, etc., y se termina con la fila 8 línea 8 lle- 
nando el mapa de 2K bytes. 

Después cambiamos a las ocho filas del medio que son tra- 
tadas de la misma forma, y finalmente a las ocho filas últimas 
que también se direccionan así. Así se produce un “roll” y 
“scroll” de carácter un poco complicado y requiere el movi- 
miento de 6K bytes. 


org 23769 23773 3A 8D 5C Id a,(23693) 
23768 11 00 57 Id de,22528 L2 

23763 21 20 58 Id hl,22569 23776 12 ld (de).a 
23766 01 ES 82 ld bc,736 23777 13 inc de 
23769 ED B Idir 23778 18 FC dinz L2 
23771 06 29 ld b,32 23788 C9 ret 
Programa 6.1B 

org 23768 23773 3A 8D 5C ld a,(23693) 
23769 11 FF 5A Id de,23295 17 

23763 21 DF 5A ld h1,23263 23776 12 Id (de),a 
23766 01 EB 02 ld bc,736 23777 13 inc de 
23769 ED B8 Iddr 23778 10 FC dinz L7 
23771 06 20 ld b,32 23780 C9 ret 


Programa 6.2 


org 23768 23769 Y1 1F QU ld bc,31 
23760 46 18 ld b,24 23772 ED BY Idir 
23762 21 44 58 ld hl,22528 23774 3A 8D 5C Id a,(23693) 
112 23777 12 ld (de),a 
23765 E5 push hl 23778 C1 pop bc 
23766 D1 pop de 23779 10 FO dinz 112 
23767 C5 push bc 23781 C9 ret 
23768 23 inc hi 

Programa 6.3 

org 23769 23769 01 1F 00 ld bc,31 
23769 06 18 ld b,24 23772 ED B8 Idar 
23762 21 FF 5A ld hl,23295 23774 3A 8D 5C ld a,(23693) 
114 23777 12 ld (de),a 
23765 E5 push hi 23778 C1 pop bc 
23766 D1 pop de 23779 10 FO dinz L14 
23767 C5 push bc 23781 C9 ret 

23768 2B dec hl 

Programa 6.4 

org 23760 23772 Y1 EV B2 ld bc,736 
23760 21 04 58 ld hl,22528 23775 ED BY Idir 
23763 ES push hl 23777 06 29 ld b,32 
23764 D1 pop de 117 

23765 06 20 ld b,32 23779 F1 pop af 
116 23780 2B dec hl 
23767 7E ld a,(hl) 23781 77 ld (hh),a 
23768 F5 push af 23782 10 FB dinz L17 
23769 23 inc hi 23784 C9 ret 

23770 10 FB dinz L16 

Programa 6.5 
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org 23764 
23769 21 FF 5A 
23763 ES 
23764 D1 
23765 46 24 
L24 

23767 7E 
23768 F5 
23769 2B 
23770 10 FB 


Programa 6.6 


org 23768 
23769 46 18 
23762 21 44 58 
L32 

23765 ES 
23766 D1 
23767 C5 
23768 7E 


Programa 6.7 


org 237608 
23769 26 18 
23762 21 FF 5A 
L33 

23765 ES 
23766 D1 
23767 C5 
23768 7E 


Programa 6.8 


or 23760 
23760 46 CU 
23762 21 44 44 
L1 

23765 E5 
23766 D1 
23767 C5 
23768 7E 


Programa 6.9 


org 23760 
23768 46 CU 
23762 21 FF 57 
L1 

23765 ES 
23766 D1 
23767 C5 
23768 7E 


Programa 6.10 
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Id hl,23295 
push hl 
pop de 
ld b,32 


ld a,(hl) 
push af 
dec hl 

dinz L24 


ld b,24 
Ih hl,22528 


push hl 
pop de 
push bc 
Id a,(hl) 


ld b,24 
ld hl,23295 


push hl 
pop de 
push bc 
ld a,(hl) 


Id b,192 
ld hl,16384 


push hl 
pop de 
push bc 
Id a,(hl) 


Id b,192 
ld hl,22527 


push hi 
pop de 
push bc 
ld a,(hl) 


23772 Y1 E 12 
23775 ED B8 
23777 Y6 20 
L25 

23779 Fl 
23789 23 
23781 77 
23782 19 FB 
23784 C9 


23769 23 
23770 01 1F 00 
23773 ED B4 
23775 12 
23776 C1 
23777 10 F2 
23779 C9 


23769 2B 
23779 Y1 1F YU 
23773 ED B8 
23775 12 
23776 C1 
23777 10 F2 
23779 C9 


23769 23 
23770 91 1F QU 
23773 ED BY 
23775 12 
23776 C1 
23777 10 F2 
23779 C9 


23769 2B 
23770 01 1F 00 
23773 ED B8 
23775 12 
23776 C1 
23777 10 F2 
23779 C9 


Id bc,736 
Iddr 
ld b,32 


pop af 
inc hl 

ld (hl),a 
dinz L25 
ret 


inc hi 

ld bc,31 
ldir 

ld (de),a 
pop bc 

dinz L32 
ret 


dec hl 

ld bc,31 
Idar 

ld (de), a 
pop bc 
djnz L33 
ret 


inc hl 

ld bc,31 
Idir 

ld (de), a 
pop bc 
dinz L1 
ret 


dec hl 

ld bc,31 
Idar 

ld (de), a 
pop bc 
dinz L1 
ret 


org 23769 


23760 21 00 49 Id hl,16384 
23763 AF xor a 
23764 06 CU ld, b,192 
113 

23766 C5 push bc 
23767 ES push hl 
23768 Di pop de 


Programa 6.11 


org 23769 

L2 

23760 21 00 49 ld hl,16384 
23763 11 20 00 ld de 32 
23766 46 CU ld b,192 
L1 

23768 36 00 ld (hl),0 
23774 19 add hi, de 
23771 10 FB dinz L1 


Programa 6.11A 


org 23768 

23760 21 FF 57 ld hl,22527 
23763 AF xor a 
23764 46 CU ld b,192 
114 

23766 C5 push bc 
23767 ES push hl 
23768 D1 pop de 


Programa 6.12 


org 23769 

23760 11 00 40 Id de,16384 
23763 21 20 40 Id hl,16416 
23766 Y1 E V7 ld bc,2816 
23769 ED BY Idir 

23771 06 48 ld b,8 
23773 21 04 48 Id hl,18432 
23776 11 ED 49 Id de,16608 
L3 

23779 C5 push bc 
23780 ES push hl 
23781 D5 push de 
23782 01 28 4U ld bc,32 
23785 ED BUY Idir 

23787 D1 pop de 
23788 El pop hi 
23789 C1 pop bc 
23790 14 inc d 

23791 24 inc h 
23792 10 F1 dinz L3 
23794 11 49 48 ld de,18432 
23797 21 29 48 Id hl,18464 
23800 41 ES U7 Id bc,2816 
23803 ED BY Idir 

23805 06 18 ld b,8 
23807 21 UU 59 ld hl,20480 
23810 11 EY 48 ld de,18656 
L4 

23813 C5 push bc 


Programa 6.13 


23769 23 
23770 01 1F 09 
23773 ED BU 
23775 12 
23776 C1 
23777 19 F3 
23779 C9 


23773 21 01 40 
23776 11 YY 49 
23779 Y1 FF 17 
23782 ED 894 
23784 EB 
23785 36 09 


23787 C9 


23769 2B 
23770 Y1 1F QU 
23773 ED B8 
23775 12 
23776 C1 
23777 10 F3 
23779 C9 


23814 ES 
23815 D5 
23816 01 20 4U 
23819 ED BY 
23821 D1 
23822 El 
23823 C1 
23824 14 
23825 24 
23826 19 F1 
23828 11 04 59 
23831 21 20 59 


23834 Y1 EU 07 
23837 ED BY 
23839 06 48 
23841 21 ES 59 
L5 

23844 C5 
23845 ES 
23846 16 20 

L6 

23848 36 04 
23850 23 
23851 10 FB 
23853 El 
23854 C1 
23855 24 
23856 19 F2 
23858 C9 


inc hl 

ld, bc,31 
Idir 

ld (de), a 
pop bc 
dinz L13 
ret 


ld hl,16385 

ld de,16384 
ld bc,6143 

Idir 

ex de, hl 

ld (hl),9 


ret 


dec hl 

ld bc,31 
Iddr 

ld (de), a 
pop bc 
dinz L14 
ret 


push hl 
push de 

ld bc,32 
Idir 

pop de 
pop hl 

pop bc 

inc d 

inc h 

dinz L4 

ld de,20484 
d hl,280512 


ld bc,2016 
Idir 

ld b,8 

d hl,20784 


push bc 
push hl 
d b,32 


d (hl),g 
inc hl 
dinz L6 
pop hl 
pop bc 
inc h 
dinz L5 
ret 
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org 23760 
23769 21 00 49 
118 

23763 46 20 
L19 

23765 7E 
23766 FS 
23767 23 
23768 10 FB 
23770 AF 
23771 6F 
23772 24 
23773 7C 
23774 FE 48 
23776 20 F1 
23778 11 00 40 
23781 21 20 40 
23784 Y1 ES 07 
23787 ED BY 
23789 46 4U8 


23791 21 08 48 
23794 11 ES 49 
L2g 

23797 C5 
23798 ES 
23799 D5 
23800 01 20 09 
23803 ED BY 


23805 D1 
23806 El 
23807 C1 
23808 14 
23809 24 
23819 19 F1 
23812 11 04 48 
23815 21 29 48 


Programa 6.14 


org 23764 
23769 11 FF 57 
23763 21 DF 57 
23766 01 ES 07 
23769 ED B8 
23771 46 48 
23773 21 EY 48 
23776 11 09 59 
L8 

23779 C5 
23780 ES 
23781 D5 
23782 01 20 00 
23785 ED BY 
23787 D1 
23788 El 
23789 C1 
23799 14 
23791 24 
23792 19 F1 


23794 11 FF 4F 
23797 21 DF 4F 
23808 01 ES 07 
23803 ED B8 
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ld hl,16384 
ld b,32 


ld a,(hl) 
push af 
inc hi 

dinz L19 
xor a 

ld la 

inc h 

ld a,h 

cp 72 

jr nz,L18 
ld de,16384 
ld hl,16416 
ld bc,2816 
ldir 

ld b,8 


la hl,18432 
ld de,16608 


push bc 
push hl 
push de 
ld bc,32 
lair 


pop de 
pop hl 

pop bc 

inc d 

inc h 

djnz L29 

Id de,18432 
Id hl,18464 


ld de,22527 
Id hl,22495 

Id bc,2016 

ldar 

ld b,8 

ld hl,18656 
ld de,20480 


push ba 
push hl 
push de 
ld bc,32 
Idir 

pop de 
pop hl 
pop bc 
inc d 
inc h 
dinz L8 


Id de,28479 
ld hl,20447 

Id bc,2816 

1dadr 


23818 Q1 E4 07 
23821 ED BY 
23823 06 48 
23825 21 04 59 
23828 11 EY 48 


L21 

23831 C5 
23832 E5 
23833 DS 
23834 41 20 Yu 
23837 ED B9 
23839 D1 
23844 El 

23841 C1 
23842 14 
23843 24 
23844 19 F1 
23846 11 08 54 
23849 21 20 50 
23852 01 EN 07 
23855 ED BY 
23857 21 FF 57 
L22 

23869 96 29 
L23 

23862 F1 


23863 77 
23864 2B 
23865 10 FB 
23867 SE FF 
23869 6F 
23870 25 
23871 7C 
23872 FE 4F 
23874 20 F4 
23876 C9 


23805 06 48 
23897 21 EN 49 
23810 11 04 48 
Lg 

23813 C5 
23814 ES 
23815 D5 
23816 Y1 20 UU 
23819 ED BY 
23821 D1 
23822 El 
23823 C1 
23824 14 
23825 24 
23826 10 F1 
23828 11 FF 47 
23831 21 DF 47 


23834 Yi EN 07 
23837 ED B8 
23839 21 00 49 
119 

23842 06 29 
111 

23844 36 00 


ld bc,2016 

Idir 

ld b,8 

ld hl,284898 
ld de,18656 


push bc 
push hl 
push de 

ld bc,32 
Idir 

pop de 
pop hi 
pop bc 

inc d 

inc h 

djnz L21 

ld de,20480 
ld hl,20512 
ld bc,2016 
Idir 

ld hl,22527 


ld b,32 


pop af 


ld (hl),a 
dec hi 
dinz L23 
ld a,255 
ld la 
dec h 

ld a,h 
cp 79 

jr nz,L22 
ret 


ld b,8 
Id hl, 16608 
ld de, 18432 


push bc 
push hl 
push de 

ld bc,32 
Idir 

pop de 
pop hl 

pop bc 

inc d 

inc h 

djnz L9 

ld de,18431 
Id hl,18399 


ld bc,2016 
1dadr 

Id hl,16384 
ld b,32 


ld (hl),8 


23846 23 inc hi 23852 7C 
23847 10 FB dinz L11 23853 FE 48 
23849 AF xor a 23855 28 F1 
23850 6F ld la 23857 C9 
23851 24 inc h 

Programa 6.15 

org 23769 23824 46 48 
23760 21 FF 57 ld hl,22527 23826 21 EN 49 
L26 23829 11 4 48 
23763 06 29 ld b,32 

L27 

23765 7E ld a,(hl) L29 

23766 F5 push af 23832 C5 
23767 2B dec hl 23833 E5 
23768 10 FB dinz L27 23834 D5 
23770 3E FF ld a,255 23835 41 20 UU 
23772 6F ld la 23838 ED BY 
23773 25 dec h 23849 D1 
23774 7C ld a,h 23841 El 
23775 FE 4F cp 79 23842 C1 
23777 20 F9 jr nz,L26 23843 14 
23779 11 FF 57 ld de,22527 23844 24 
23782 21 DF 57 ld hl,22495 23845 19 F1 
23785 01 EQ 07 ld bc,2816 23847 11 FF 47 
23788 ED B8 lddr 238509 21 DF 47 
23790 06 48 ld b,8 23853 01 EU 07 
23792 21 EY 48 la hl,18656 23856 ED B8 
23795 11 04 50 ld de,20489 23858 21 0 49 
128 L30 

23798 C5 push bc 23861 46 28 
23799 ES push hl L31 

23800 D5 push de 23863 F1 

23801 01 20 QU ld bc,32 

23804 ED BY Idir 

23806 D1 pop de 23864 77 
23807 El pop hl 23865 23 
23808 C1 pop bc 23866 10 FB 
23809 14 inc d 23868 AF 
23819 24 inc h 23869 6F 

23811 19 F1 dinz L28 23878 24 
23813 11 FF 4F Id de,28479 23871 7C 
23816 21 DF 4F ld hl,28447 23872 FE 48 
23819 01 EU 07 ld bc,2816 23874 20 F1 
23822 ED B8 Iddr 23876 C9 


Programa 6.16 


1 REM >?PASO £” BORRAR 65/>? 

STEP ? 

500>DATA 24,79,5,2, "PARAR LA CINTA” 

510 DATA Q,167,6,4, "MOVIMIENTO” 

520 DATA 0,130,2,4,”_______” 

525 DATA 24,15,1,2, "PULSE CUALQUIER 
TECLA” 

550 DATA 31,170,1,2,"INSTRUCCIONES” 

604 BORDER 4: PAPER 6: INK Y: CLS 

605 RESTORE 509 

610 FOR a=1 TO 4 

620 INK a: GO SUB 8008 

630 PAUSE 50: NEXT a 

640 PAUSE 0: CLS 

642 INK 2: GO SUB 8008 

645 PRINT INK 0; AT 3,0; "Este programa 
muestra los métodos básicos de movimientos 
de primer plano y de fondo.” 


ld a,h 
cp 72 

jr nz,L19 
ret 


ld b,8 
ld hl,16608 
ld de, 18432 


push bc 
push hl 
push de 

ld bc,32 
Idir 

pop de 
pop hi 

pop bc 

inc d 

inc h 

dinz L29 

ld de. 18431 
ld hi. 18399 
ld bc. 2016 
1ddr 

ld hl,16384 


ld b,32 


pop af 


ld (hh),a 
inc hi 
dinz L31 
xora 

ld 1,a 
inc h 

ld ah 

cp 72 

jn nz L34 
ret 


51 


646 PRINT ' "La tabla de abajo muestra las 
teclas usadas y sus funciones.” 
647 PRINT 
650 PRINT ” FONDO” 
655 PRINT ” ROLL ; SCROLL 
NAVE ESPACIAL” 
660 PRINT "ARRIBA 1 .Q 
7" 
670 PRINT "ABAJO 2: W 
8" 


680 PRINT "IZQUIERDA 3: E 


694 PRINT DERECHA 4:R 
gr 

695 PRINT ' "Con la tecla SPACE se vuelve 
al BASIC” 

700 RESTORE 525: INK 2: GO SUB 8000 

705 IF INKEY$<>"” THEN GO TO 705 

710 1IF INKEY$="" THEN GO TO 718 

715 POKE 30046,0: POKE: 30047,9 

724 RANDOMIZE USR 30001 

725 CLS : RESTORE 730: PAPER 8: 
INK Y: GO SUB 8009 

730 DATA 0M,80,3,1 “ENTER 'GOTO 7 
15' para otra vez”. 

749 STOP 
8000 READ x,y,h,w,a$ 
8010 LET c=USR 32393 
8020 RETURN 
9998 CLEAR 30000: LOAD "udg” CODE 
USR "a”: LOAD ”"CODE : GO TO 548 
9999 SAVE "MOVEDEMO” LINE 9998: S 
AVE "udg”" CODE USR ”a”, 168: SAVE ” 
M/code "CODE 34001,2767 


Programa 6.17 


INSTRUCCIONES 


Este programa muestra los métodos básicos de movi- 
miento de primer plano y de fondo. 


La tabla de abajo muestra las teclas usadas y sus 
funciones. 


FONDO 
ROLL SCROLL NAVE ESPACIAL 
ARRIBA 1 
ABAJO 2 
IZQUIERDA 3 
DERECHA 4 


con la Tecia SPACE se vuelve al BASIC 


PULSE CUALQUIER TECLA 
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org 40008 30001 
3909091 F3 

30002 CD DY 5C 
30005 18 18 
DATA 1 


di 
call 23760 
jr COMIENZO 


defb Y Y 15 24 49 226 225 224 
defb 24 64 255 255 153 255 231 
defb 69 Y Y 244 24 14071 135 7 


COMIENZO 

30031 ED 5B 7B 5C 
30035 21 37 75 
30038 Y1 18 00 
30041 ED B9 
30043 18 YA 
DATA2 


ld de,(23675) 
Id hI,DATA 1 
Id bc,24 

Idir 

jr COMENZAR 


defb 2204 168 17 8 144 145 


defb 146 
COMENZAR 
30055 11 5D 75 
30058 Y1 YA YU 


30061 CD 3C 29 
30064 11 00 5B 
30067 21 5D 75 
30079 Y1 YA UU 
30073 ED BY 
MOVER 

30075 2A 91 5B 
30078 Q1 FE EF 
30081 ED 78 
30083 FE FF 
304085 28 5D 
30087 CB 47 


30089 29 Q1 
30091 24 
LP1 

30092 CB 4F 
30994 29 Y1 
30996 25 
LP2 

3097 CB 57 
30099 20 91 


30101 2C 
LP3 

30102 CB 5F 
30194 29 01 
30106 2D 
LP4 

30197 7D 
30108 FE 16 
30110 29 03 
30112 2D 
30113 18 Y5 
LP5 

30115 FE FF 
30117 20 91 
30119 2C 
LP6 

30129 7C 
30121 FE 1E 
30123 20 93 
30125 25 
30126 18 05 


ld de, DATA2 
d bc,19 


call 8252 

Id de,23296 
d hl,DATA2 
Id bc,19 
Idir 


d hi (23297) 
d bc,61438 
in a,(c) 

cp 255 

jr z,LP12 

bit V,a 


jr nz,LP1 
inc h 


bit 1,a 
jr nz, LP2 
dec h 


bit 2,a 
jr nz, LP3 


inc | 


bit 3,a 
jr nz, LP4 
dec | 


ld a,1 
cp 22 
jr mz,LP5 
dec | 
jr LP6G 


cp 255 
jr nz, LP6 
inc | 


ld a,h 
cp 30 
jr nz,LP7 
dec h 
jr LP8 


LP7 

30128 FE FF 
30130 29 91 
30132 24 

LP8 

30133 ED 5B 91 5B 
30137 AF 

390138 ES 

390139 ED 52 
30141 El 

30142 28 24 
30144 22 91 5B 
OVER1 

30147 FD 36 57 03 
390151 11 5D 75 
30154 Y1 YA UU 
30157 CD 3C 29 
390169 11 04 5B 
30163 Y1 YA QU 
34166 CD 3C 29 
30169 11 5D 75 


3072 21 44 5B 
30175 Y1 YA 0U 
390178 ED 89 
LP12 

30180 01 FE F7 
30183 ED 78 
30185 E6 gF 
30187 28 3E 
30189 FE 43 
30191 28 3A 
30193 FE 4C 
30195 28 36 
30197 FE GF 
30199 28 32 
30201 FS 
30202 FD 36 57 03 
30226 11 5D 75 
30229 Y1 GA UY 
30212 CD 3C 28 
30215 Fl 

30216 CB 47 


30218 FS 

390219 CC C9 77 
30222 F1 

30223 CB 4F 
30225 FS 

30226 CC 56 78 
30229 F1 

30230 CB 57 
30232 FS 

30233 CC E3 78 
30236 F1 

30237 CB 5F 
30239 CC F7 78 
30242 11 5D 75 
30245 91 YA YY 
30248 CD 3C 28 
SCR 

30251 41 FE FB 
30254 ED 78 
30256 E6 pF 
30258 28 3E 


cp 255 
jr nz,LP8 
inc h 


Id de,(23297) 
xor a 

push hl 

sbc hl,de 
pop hl 

jr z,LP12 

d (23297), hl 


d (iy+87),3 
d de,DATA2 
ld bc,18 

call 8252 

d de,23296 
d bc,19 

call 8252 

d, de DATA2 


Id hl, 23296 
ld bc,19 
dir 


d bc,63486 
in a,(c) 

and 15 

jr z,SCR 

cp 3 

jr z¡SCR 

cp 12 

jr z,SCR 

cp 15 

jr z,SCR 
push af 

Id (iy+87),3 
ld de,DATA2 
ld bc,18 
call 8252 
pop af 

bit V,a 


push af 

call z, UROLL 
pop af 

bit 1,a 

push af 

call z, DROLL 
pop af 

bit 2,a 

push af 

call z, LROLL 

pop af 

bit 3,a 

call z, RROLL 

ld de,DATA 2 
ld bc,19 

call 8252 


ld bc,64519 
in a,(c) 

and 15 

jr z, DELAY 
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30269 FE 93 
30262 28 3A 
30264 FE YC 
30266 28 36 
30268 FE YF 
30270 28 32 
30272 FS 

30273 FD 36 57 03 
30277 11 5D 75 
30280 91 YA UU 
30283 CD 3C 28 
30286 F1 

390287 CB 47 
30289 FS 

390290 CC 8A 76 
30293 F1 

30294 CB 4F 
30296 FS 

30297 CC 91 77 
30300 F1 

30301 CB 57 


30303 F5 

30304 CC 77 77 
30307 F1 

30308 CB 5F 
303190 CC AY 77 
30313 11 5D 75 
30316 91 DA: UU 
30319 CD 3C 29 
DELAY 

30322 21 10 27 
L1 

30325 2B 

30236 7C 

30327 BS 

30328 20 FB 
30330 Y1 FE 7F 
390333 ED 78 
30335 CB 47 
30337 C2 7B 75 
30349 FD 36 57 48 
30344 FB 


39345 C9 
USCR 

30346 11 00 58 
30349 21 20 58 
30352 01 EN 02 
30355 ED Bu 
30357 M6 20 
308359 3A 8D 5C 
L2 

30362 12 
30363 13 
30364 18 FC 
30366 11 09 49 
30369 21 29 49 
39372 01 EQ Y7 
30375 ED 89 
30377 46 48 
30379 21 04 48 
30382 11 ES 49 
L3 
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cp 3 

jr z DELAY 
cp 12 

jr z, DELAY 
cn 15 

jr z, DELAY 
push af 

ld (iy+87),3 
ld de, DATA2 
ld bc,19 
call 8252 
pop af 

bit V,a 

push af 
call z, USCR 
pop af 

bit 1,a 
push af 

call z, DSCR 
pop af 

bit 2,a 


push af 

call z, LSCR 

pop af 

bit 3,a 

call z, RSCR 
Id de, DATA2 
ld bc,19 

call 8252 


ld hl,10000 


dec hl 

ld a,h 

orl 

jr nz, L1 

ld bc,32766 
in a,(c) 

bit Va 

jp nz, MOVE 
ld (iy+87),9 
ei 


ret 


ld de,22528 
ld hl,22569 
ld bc,736 
Idir 

ld b,32 

Id a,(23693) 


ld (de),a 
inc de 

dinz L2 

ld de,16384 
ld hl,16416 
ld bc,2816 
Idir 

Id b,8 

ld ht,18432 
ld de,16608 


30385 C5 


30386 ES 
30387 D5 
340388 01 24 YU 
30391 ED BY 
30393 D1 
30394 El 
30395 C1 
30396 14 
30397 24 
30398 10 F1 
30490 11 44 48 
30403 21 29 48 
30406 01 ES 07 
30499 ED Bg 
30411 06 48 
30413 21 90 50 
30426 11 Eg 4B 
La 

30419 C5 
30420 ES 
30421 D5 


30422 Y1 20 00 
30425 ED Bg 
30427 Di 
30428 El 
30429 C1 
30430 14 
30431 24 
30432 10 F1 
30434 11 40 59 
30437 21 20 50 
30440 Y1 EQ 07 
30443 ED B9 
30445 96 48 
30447 21 EQ 59 
L5 

30450 C5 
30541 ES 
30452 06 28 

L6 

30454 36 04 
30456 23 


390457 10 FB 
30459 El 

30469 C1 

30461 24 
30462 10 F2 
30464 C9 
DSCR 

30465 11 FF SA 
30468 21 DF 5A 
30471 01 ES 42 
30474 ED B8 
30476 06 20 
30478 3A 8D 50 
L7 

30481 12 
30482 13 
30482 10 FC 
30485 11 FF 57 
30488 21 DF 57 


push bc 


push hl 
push de 

ld bc,32 
Idir 

pop de 
pop hl 

pop ba 

inc d 

inc h 

dinz L3 

ld de, 18432 
ld hl,18464 
ld bc,2016 
Idir 

ld b,8 

la hl,20489 
ld de,18656 


push bc 
push hl 
push de 


ld bc,32 
Idir 

pop de 
pop hi 

pop bc 

inc d 

inc h 

djinz L4 

ld de,20480 
ld hl,28512 
ld bc,2016 
Idir 

ld b,8 

Id, h!,20704 


push bc 
push hl 
ld b,32 


ld (hl),8 
inc hl 


djzn L6 
pop hi 
pop bc 
inc h 
dinz L5 
ret 


ld de,23295 
ld hl,23263 
ld bc,736 
Iddr 

Id b,32 

Id a,(23693) 


ld (de),a 

inc de 

djnz L7 

ld de, 22527 
Id hl,22495 


30491 01 EQ 97 
39494 ED B8 


30496 06 48 
30498 21 EN 48 
30591 11 00 59 
L8 

30594 C5 
30505 ES 
30596 D5 
30597 Y1 20 0U 
30514 ED B4 
30512 D1 
30513 El 

30514 C1 
30515 14 
30516 24 
30517 19 F1 
30519 11 FF 4F 
34522 21 DF 4F 
34525 01 ES 07 
34528 ED B8 
30530 06 018 
30552 21 ES 40 


30535 11 00 48 
L9 

30538 C5 
32539 ES 
390544 DS 
30541 01 20 44 
390544 ED BY 
30546 D1 
30547 El 
30548 C1 
30549 14 
30558 24 
30551 19 F1 
30553 11 FF 47 
39556 21 DF 47 
30559 01 EQ 07 
30562 ED B8 
30564 21 00 40 
119 

30567 06 20 
111 


30569 36 YU 
30571 23 
30572 10 FB 
30574 AF 
30575 6F 
30576 24 
30577 7C 
30578 FE 48 
30580 29 F1 
30582 C9 
LSCR 

30583 06 18 
30585 21 44 58 
112 

30588 ES 
30589 D1 


ld bc,2016 
Idar 


ld b,8 
id hl,18656 
ld de,20480 


push bc 
push hl 
push de 

ld bc,32 
Idir 

pop de 
pop hi 

pop bc 

inc d 

inc h 

dinz L8 

ld de,20479 
ld, hl,20447 
ld bc,2016 
lddr 

ld b,8 

ld hl,16608 


ld de,18432 


push bc 
push hl 
push de 

ld bc,32 
Idir 

pop de 
pop hi 

pop bc 

inc d 

inc h 

dinz L9 

Id de,18431 
Id hl,18399 
ld bc,2016 
Iddr 

Id hl,16384 


ld b,32 


ld (hl),9 
inc hl 
dinz L11 
xor a 

ld la 
inc h 

ld ah 
cp 72 

jr nz,L19 
ret 


ld b,24 
ld hl,22528 


push hl 
pop de 


390598 C5 

30591 23 
30592 Y1 1F 00 
30595 ED BY 
30597 3A 8D 5C 


30608 12 
30601 C1 
30682 19 FO 
30604 21 00 49 
30697 AF 
30648 06 CU 
113 

30618 C5 
30611 ES 
30612 D1 
30613 23 
30614 91 1F 00 
30617 ED 89 
30619 12 
30629 C1 
30621 10 F3 
30623 C9 
RSCR 

30624 06 18 
30626 21 FF 5A 
L14 


30629 ES 
30630 D1 
30631 C5 
30632 2B 
30633 Y1 1F QU 
30636 ED B8 
30638 3A 8D 50 
30641 12 
30642 C1 
30643 10 FU 
30645 21 FF 57 
30648 AF 
30649 46 CU 
114 

39651 C5 
30652 ES 
30653 D1 
30654 2B 
30655 91 1F 4U 
30658 ED B8 
30660 12 


30661 C1 
30662 10 DD 
30664 C9 
UROLL 

30665 21 44 58 
30668 E5 
30669 D1 
30670 46 20 
L16 

30672 7E 
30673 F5 
30674 23 
30675 19 FB 
30677 Y1 EQ Y2 
30688 EDBO 


push bc 

inc hi 

ld bc,31 

Idir 

Id a, (23693) 


ld (de),a 
pop bc 
dinz L12 
Id hl,16384 
xora 

Id b,192 


push bc 
push hl 
pop de 
inc hi 

ld bc,31 
Idir 

ld (de),a 
pop bc 
dinz L13 
ret 


ld b,24 
ld hl,23295 


push hl 
pop de 
push bc 
dec hl 

ld bc,31 
Idar 

ld a,(23693) 
ld (de),a 
pop bc 
dinz L14 
ld hl,22527 
xor a 

ld b,192 


push bc 
push hl 
pop de 
dec hl 
ld bc,31 
Idar 

ld (de),a 


pop bc 
dinz L14 
ret 


ld hl,22528 
push hl 
pop de 
Id b,32 


ld a,(hl) 
push af 
inc hi 
djnz L16 
ld bc,736 
Idir 
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30682 16 24 
L17 

30684 F1 
30685 2B 
30686 77 
30687 10 FB 


30689 21 44 49 
118 

30692 Y6 20 
L19 

30694 7E 
30695 F5 
30696 23 
30697 10 FB 
30699 AF 
30700 6F 

30701 24 
30702 7C 
30703 FE 48 
30705 29 F1 
30707 11 09 49 
30710 21 29 49 
30713 941 ES 07 
30716 ED B4 
30718 46 48 
30720 21 04 48 
30723 11 EQ 49 


L20 

30726 C5 
30727 ES 
30728 D5 
30729 Y1 20 00 
30732 ED BY 
30734 D1 
30735 El 
30736 C1 
30737 14 
39738 24 
39739 19 F1 
30741 11 00 48 
30744 21 20 48 
30747 Q1 ES 07 
30750 ED BY 
30752 46 18 
30754 21 08 59 
30757 11 ES 48 
L21 

30764 C5 


30761 ES 
30762 D5 
30763 Yi 20 Yu 
30766 ED BY 
30768 D1 
30769 El 
30779 C1 
30771 14 
30772 24 
30773 19 F1 
30775 11 00 50 
30778 21 20 50 
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ld b,32 


pop af 
dec hl 
ld (hi), a 
dinz L17 


d 1,16384 
d b,32 


d a,(hl) 
push af 

inc hl 

dinz L19 
xor a 

d, la 

inc h 

d a,h 

cp 72 

jr nz,L18 

ld de, 16384 
ld hl,16416 
ld bc,2016 
ldir 

d b,8 

ld hl,18432 
ld de, 16648 


push bc 
push hi 
push de 

ld bc,32 
Idir 

pop de 

pop hl 

pop bc 

inc d 

inc h 

dinz L24 

ld de,18432 
Id hl,18464 
ld bc,2016 
Idir 

ld b,8 

ld hl,20480 
ld de,18656 


push bc 


push hi 
push de 

ld b,32 

ldir 

pop de 
pop hl 

pop bc 

inc d 

inc h 

djinz L21 

ld de, 20489 
Id hl,20512 


30781 01 E0 07 
30784 ED BQ 
30786 21 FF 57 
122 

30789 46 20 
L23 

30791 F1 
30792 77 
30793 2B 
39794 190 FB 
30796 3E FF 
30798 6F 
30799 25 
30800 7C 
39801 FE 4F 
30893 20 FM 
30895 C9 
DROLL 

30806 21 FF 5A 
30809 ES 
30819 D1 
30811 06 20 
L24 

30813 7E 
30814 FS 
30815 2B 
30816 190 FB 
30818 01 ES 02 
30821 ED B8 
30823 06 20 


L25 

30825 F1 
30826 23 
30827 77 
30828 19 FB 
30830 21 FF 57 
L26 

30833 46 28 
L27 

30835 7E 
30836 FS 
30837 2B 
30838 19 FB 
30840 3E FF 
30842 6F 
30843 25 
39844 7C 
30845 FE 4F 
30847 29 FU 
30849 11 FF 57 
30852 21 DF 57 


30855 Y1 ES 07 
340858 ED B8 
30860 06 08 
30862 21 EY 48 
340865 11 00 59 
L28 

30868 C5 
30869 ES 
30874 DS 
30871 Y1 20 QU 
30874 ED BO 


ld bc,2816 
Idir 
ld hl,22527 


ld b,32 


pop af 
ld (hl) a 
dec hl 
dinz L23 
d a,255 
d la 
dec h 

d ah 
cp 79 

jr nz,L22 
ret 


d hl,23295 
push hi 
pop de 
Id b,32 


d a,(hl) 
push af 
dec hl 
dinz L24 
d bc,736 
ladr 

ld b,32 


pop af 

inc hl 

la (hl),a 
djinz L25 
ld hl,22527 


ld b,32 


ld a,(hl) 
push af 
dec hi 

dinz L27 

ld a,255 

ld la 

dec h 

ld a,h 

cp 79 

jr nz,L26 

ld de,22527 
Id hi, 22495 


Id bc,2016 

Iddr 

ld b,8 

Id hl,18656 

ld de,20489 


push bc 
push hl 
push de 
ld bc,32 
Idir 


30876 D1 pop de 30936 19 FB dinz L31 


30877 El pop hl 30938 AF xor a 
30878 C1 pop bc 30939 6F ld la 
30879 14 inc d 30949 24 inch h 
30880 24 inc h 30941 7C ld a,h 
30881 19 F1 djnz L28 30942 FE 48 cp 72 
30944 29 F1 jr nz,L30 
30946 CY ret 
30883 11 FF 4F ld de,20479 LROLL 
30886 21 DF 4F ld hl,28447 30947 46 D8 ld b,216 
30889 91 E9 97 ld bc,2016 30949 21 BY 49 ld hl,16384 
30892 ED B8 lddr L32 
30952 E5 push hl 
30953 D1 pop de 
30894 06 48 ld b,8 3B954 C5 push bc 
30896 21 E9 49 ld hl,16688 30955 7E ld a,(hl) 
30899 11 99 48 ld de,18432 
L29 
30992 C5 push bo 38956 23 inc hi 
30903 ES push hl 38957 01 1F QU ld bc,31 
30994 D5 push de 30969 ED BO Idir 
30905 01 20 09 ld bc,32 30962 12 ld (de),a 
30908 ED BY Idir 30963 C1 pop bc 
38919 D1 pop de 308964 19 F2 dinz L32 
30911 El pop hl 30966 C9 ret 
30912 C1 pop bc RROLL 
30913 14 inc d 30967 46 D8 ld b,216 
30914 24 inc h 30969 21 FF 5A ld hl,23295 
30915 19 F1 dinz L29 L33 
30917 11 FF 47 ld de,18431 30972 E5 push hl 
30929 21 DF 47 Id hl,18399 308973 D1 pop de 
30923 91 E9 97 ld bc,2816 30974 C5 push bc 
30926 ED B8 lddr 30975 7E ld a,(hl) 
30928 21 00 48 Id hl,16384 30976 2B dec hl 
L3g 30977 41 1F Qu ld bc,31 
30989 ED B8 lddr 
30982 12 Id (de),a 
30931 46 28 ld b,32 30983 C1 pop bc 
L31 30984 19 F dinz L33 
30933 F1 pop af 
30934 77 ld (hl),a 
30935 23 inc hl 30986 CY ret 
Programa 6.18 


Observe que en estas rutinas se hace uso extensivo de las 
instrucciones LDIR y LDDR de transferencia de bloque, y que 
después de estas instrucciones los registros DE y HL contienen 
la dirección final + 1 (LDIR) o — 1 (LDDR). Se utiliza este he- 
cho para volver a cargar HL o DE con una dirección específica 
para posteriores rutinas del programa. Por ejemplo, ATTR. UP 
SCROLL (programa 6.1 B) utiliza el hecho de que después de 
LDIR el registro DE contiene la dirección del atributo “START 
of LINE 24” y de esta forma no es necesario volver a cargar 
DE con esta dirección. Los atributos actuales de la línea 24 son 
reemplazados por los atributos permanentes de pantalla guar- 
dados en la variable ATTR P (23693) del sistema. 

Para mostrar cada tipo de movimiento he escrito el programa 
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6.17 que viene en la cinta “MOVEDEMO”. Como el programa 
tiene casi 1000 bytes de largo no es práctico guardarlo todo en 
una sentencia REM (ocuparía más de una pantalla completa), 
entonces lo he escrito para utilizarlo por encima de RAMTOP 
comenzando en la dirección 30001 (programa 6.18). 

El código máquina en la sentencia REM se toma del pro- 
grama de números aleatorios (programa 4.1) y es utilizado para 
establecer el fondo de pantalla. El programa es auto-explicativo 
y hace llamadas a diversas rutinas, dependiendo de las teclas 
que se pulsan. Los atributos cambian al mismo tiempo que los 
caracteres que se visualizan. Usted puede mover el fondo y la 
nave diagonalmente y si se pulsan dos teclas opuestas, entonces 
la rutina es pasada por alto. Pulsando “SPACE” se vuelve al 
BASIC. Observe que el movimiento vertical es más bien desi- 
gual y no es realmente apropiado debido a la transición de una 
zona de pantalla a otra. De hecho, los programas ponen la línea 
1 en la línea 8 momentáneamente antes de desplazar la línea 9 
hacia la línea 8. 

Los programas de pantalla UP/DOWN-SCROLL y ROLL 
(programas de 6.13 a 6.16) fueron escritos de forma que puedan 
ser fáciles de seguir por usted sin subrutinas para hacerlos de- 
pendientes de la posición. Para conseguir un movimiento más 
suave estas rutinas deben abordarse de forma diferente, esto 
es, sacando una fila de una vez, en vez de sacar la línea supe- 
rior de cada columna, luego la segunda línea de cada fila, etc., 
como se ha hecho hasta ahora. Para mostrar como se consigue 
esto he reescrito el programa SCREEN UP SCROLL (pro- 
grama 6.19A). Como puede ver contiene una subrutina y una 
sub-subrutina, y es bastante más complicado. Quizás quiera us- 
ted reescribir la rutina SCREEN DOWN SCROLL de la 
misma forma, como ejercicio para estar seguro de que com- 
prende completamente como funciona. 


org 23768 L4 

23760 21 00 49 ld hl,16384 23793 ES push hl 
23763 CD 91 5D call SECT 23794 06 29 ld b,32 
23766 EB ex de,hl L3 

23767 21 04 48 Id hl,18432 

23770 ES push hl 

23771 CD 155D call UP 

23774 El pop hi 23796 36 09 ld (hl),9 
23775 CD 91 5D call SECT 23798 23 inc hl 
23778 EB ex de,hl 23799 19 FB dinz L3 
23779 21 04 509 Id hl,20489 23801 El pop hl 
23782 ES push hl 23802 24 inc h 
23783 CD 15 5D call UP 23803 7C ld a,h 
23786 El pop hi 23804 FE 58 cp 88 
23787 CD 01 5D call SECT 

23798 21 EY 50 Id hl,20704 23806 29 F1 jr nz,L4 
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23848 C9 ret 23828 C9 ret 
SECT UP 


23809 96 47 ld b,7 23829 06 048 ld b,8 
L1 L2 
23811 C5 push bc 23831 C5 push bc 
23812 01 20 UU ld bc,32 23832 E5 push hl 
23815 ES push hi 23833 D5 push de 
23816 D1 pop de 23834 01 20 00 ld bc,32 
23817 49 add hl,bc 23837 ED B4 ldir 
23818 ES push hl 23839 D1 pop de 
23819 D5 push de 23849 El pop hl 
23824 CD 15 5D call UP 
23823 D1 pop de 23841 C1 pop bc 
23842 14 inc d 
23843 24 inc h 
23824 El pop hi 23844 10 F1 djinz L2 
23825 C1 pop bc 23846 C9 ret 
23826 19 EF dinz L1 
Programa 6.19A 


Si compara los programas 6.13 y 6.19A verá que hemos redu- 
cido la memoria requerida de 99 bytes a 87 bytes, pero aún no 
es tan compacto como podría serlo. Para mostrar cómo po- 
dríamos reducir la memoria y el tiempo de ejecución todavía 
más y obtener una característica útil extra consideraremos el 
programa 6.14, UP ROLL, que tal como está toma 117 bytes. 
Hasta ahora el programa maneja cada fila de carácter línea por 
línea y tiene el “fallo” de que tiene que transferir temporal- 
mente la fila 1 a la fila 8 y la fila 9 a la fila 17. Podemos reescri- 
birlo sobre las líneas del programa 6.21 para superar este pro- 
blema, pero en vez de ello abordaremos el asunto con un 
enfoque completamente diferente para obtener un programa de 
sólo 76 bytes de largo. 

En vez de manejar la pantalla con una fila cada vez, podemos 
escribir un programa que saque una columna cada vez. En- 
tonces la rutina debe repetirse para las 32 columnas. De esta 
forma seremos capaces de seleccionar la columna que queramos 
listar, ya sea en bloques o una a una, y lo que es más, no re- 
queriremos 256 bytes de memoria para almacenar la fila supe- 
rior de la pantalla como en el programa 6.14, pues en vez de 
ello emplearemos sólo ocho bytes para el carácter de la columna 
superior. El programa 6.19B muestra como se realiza esta re- 
ducción de memoria. 


org 23768 PRESENTAR DESDE LAS COMUMNAS 5 A 
CAPITULO 6 14 INC 
PROGRAMA 198 23760 AF xor a 


LA PANTALLA PRESENTA 'n' COLUMNAS LD DE,16383+COLUMNA DE COMIENZO 


EJEMPLO Tera COLUMNA = 1 
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23761 11 M4 49 


LD B,Nu. de columnas 23797 21 20 07 Id hl,1824 
23800 19 add hide 
23764 26 BA Id b,18 23881 7C ld ah 
L5 
23766 D5 push de EXAMINAR SI ESTA FUERA DE PANTALLA 
23767 C5 push bc por ejemplo COMIENZO DE ATRIBUTOS 
GUARDAR EL CARACTER DE LA LINEA 20802.E.98 cp 88 
SUPERIOR EN LA PILA 29804 28:80 jr , END 
23806 ES push hl 
23768 D5 push de ri ld b,8 
23769 El pop hl a 
3809 7E ld a.(hi) 
23778 96 98 ld b.8 a 1d (ds) a 
23772 7E ld a.(hl) 23811 24 inc h 
23812 14 inc d 
23773 FS push af A 
23813 18 FA dinz L3 
23774 24 inc h 
23775 10 FB dinz L6 23815 D! pop de 
23816 18 D7 jr La 


TRANSFERIR 7 LINEAS 


La 
23777 46 27 ld b,7 ESPADA 
L2 
23779 C5 ush b e 

Pesos 23818 11 20 00 ld de,32 
23788 21 20 4 ld hl,32 23821 ED 52 sbc hide 
23783 19 add hl,de 23823 06 08 ld b8. 
23784 ES push hl 7 

23825 F1 pop af 
TRANSFERIR 8 BYTES 23826 77 ld (hl),a 
23827 25 dec h 

a 6 Ye ld b,8 23828 10 FB dinz L7 
23787 7E ld a,(hi) MOVERSE A LA SIGUIENTE COLUMNA 
23788 12 Id (de),a Y REPETIR 
23789 24 inch: 

; 238398 C1 pop bc 
23790 14 inc d 23831 D1 pop de 
23791 10 FA dinz L1 23832 13 inc de 
23793 D1 pop de 23833 19 BB dinz L5 
23794 C1 pop bc 23835 C9 ret 
23795 10 EE dinz L2 


ld de,16388 


TRANSFERIR ZONA DE PANTALLA 


SACAR CARACTER DE LA PILA 
Y PONERLO EN LA FILA INFERIOR DE 


Programa 6.19B 


Observará que empezamos el programa 6.19B cargando el par 
de registro DE con la dirección del byte superior de la columna 
de comienzo, y el registro B con el número de columnas a lis- 
tar. El programa es completamente auto-explicativo, y puede 
posicionarse en cualquier parte de la memoria. 

Aún no hemos terminado de ahorrar memoria. ¿Podría creer 
que es posible reducir el programa 6.19B a 58 bytes y añadir 
una facilidad extra para poder definir las filas requeridas, y 
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conseguir una rutina que visualice una ventana de líneas? Pues 
bien, el programa 6.19C hace justamente eso. 

Se ahorra memoria haciendo un examen, cuando se llega al fi- 
nal de una zona de pantalla, por medio de la instrucción BIT 
0,H. Si BIT 0,H no es cero entonces tenemos que ir hasta el fi- 
nal de una zona, y en vez de sumar 32d a DE para mover hacia 
arriba una línea dentro de una zona, sumamos 1824 para mo- 
vernos hasta la “primera” línea de la siguiente zona. Utilizando 
este método podemos definir cuantas filas requieren despla- 
zarse, mediante el número de veces que se repite el lazo L4. Al 
principio se definen ROW/COLUMN con la dirección de visuali- 
zación contenida en el par de registros DE (23671/3). Para cal- 
cular esta dirección de comienzo utilice la siguiente fórmula: 


16384 + (1824 * INT (ROW/8) = ((ROW — INT (ROW/8)) * 32) + 
COLUMN 


En esta fórmula se emplean los números ROW/COLUMN de la 
Spectrum, es decir 1.*? fila = 0, 1.* columna = 0. 


Ejemplo: ROW 17 COLUMN 5 
= 16384 + (1824 * 2) + (147 — 6)* 32) + 5 
16384 + 3648 + 32 + 5 


= 20069 
org 23768 23770 46 48 ld b,8 
CAPITULO 6 L1 
PROGRAMA 19C 23772 7E Id a,(hi) 
23773 F5 push af 
VENTANA RODANTE HACIA ARRIBA 23774 24 inc h 
23775 19 FB dinz L1 
EJEMPLO 
COLUMNAS 4 A 18 LD B,N. de filas—1! 
FILAS 5 A 18 
23777 46 UD ld b,13 
23760 AF xor a L4 
23779 C5 push bc 
LD DE,DIRECCION COMIENZO PANTALLA 23780 21 20 00 ld hl,32 
por ejemplo DIRECCION COMIENZO 23783 19 add hl,de 
COLUMNA/FILA 
EXAMINAR CAMBIO DE ZONA 
23761 11 83 48 ld de,16515 DE PANTALLA 
LD B,N. de columnas 
23784 CB 44 bit 9,h 
23764 06 07 ld b,7 23786 28 04 jr z,L2 
23788 21 20 907 ld hl,1824 
23791 19 add hl,de 
L6 L2 
23766 D5 push de 23792 ES push hi 
23767 C5 push bc 23793 06 48 ld b,8 
23768 D5 push de L3 
23769 El pop hi 23795 TE ld a,(hl) 
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23796 12 ld (de),a 23808 F1 pop af 
23797 14 inc d 


23798 24 inc h 23809 77 la (hl),a 
23799 10 FA dinz L3 23810 10 FB dinz L5 
23801 D1 pop de 23812 C1 pop bc 
23802 C1 pop bc 23813 D1 pop de 
23803 10 F6 dinz L4 23814 D1 pop de 
23805 46 48 Id b,8 23815 13 inc de 
L5 23816 190 CC dinz,L6 
23807 25 dec h 23818 C9 ret 


Programa 6.19C 


Para visualizar todas las líneas de la pantalla DE debe conte- 
ner 16384, el registro B (antes de L6) debe contener 32 y el re- 
gistro B (antes de 14) debe contener 23. Este programa se 
puede adaptar fácilmente para obtener las rutinas UP/DOWN 
SCROLL y DOWN ROLL. 


Movimiento de pixel 


Este tipo de movimiento de caracteres de primer plano no es 
realmente aconsejable para programas de juegos, ya que suele 
ser más bien lento. El movimiento se reduce en un factor de 
ocho si, por ejemplo, trata de ver si un carácter golpea a un 
obstáculo; entonces cada bit de la forma del carácter debe ser 
examinado utilizando el equivalente de POINT x,y en código 
máquina para ver si su nueva posición está a cero antes de vol- 
ver a dibujar. Así, si un carácter tiene un tamaño de 16 x 16 
pixels, entonces aunque sólo se examinen los pixels de las posi- 
ciones externas habría que hacer cerca de 100 llamadas a la ru- 
tina POINT antes de mover el carácter. Todo ello requiere 
tiempo, y por lo tanto la velocidad del movimiento se reduce 
drásticamente. Sin embargo, en el movimiento de fondo es posi- 
ble mover un pixel cada vez mientras los atributos permanezcan 
fijos (si no es así no se puede mover un pixel). 

El programa de demostración “PIXEL DEMO” se dispone en 
cinta y es nuestro primer programa de juegos de reflejos. De- 
muestra la lentitud del movimiento de pixel y también el hecho 
de que hay muchos parpadeos debido al movimiento del fondo. 
El balón debe ser sacado de la pantalla durante el movimiento 
de fondo y se debe hacer una prueba mediante POINT antes de 
volver a dibujarlo. Este tiempo de retardo es perceptible pero 
se ha conseguido hacerlo lo más corto posible mediante la elec- 
ción del balón, para el cual sólo se necesita la línea externa; de 
esta forma reducimos al mínimo el número de veces que hay 
que examinar POINT y el número de llamadas a PLOT. Los 
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principios de actuación son los mismos que en el movimiento de 
cuadros de carácter, pues las posiciones x,y de PLOT se alma- 
cenan como datos, se actualiza y examina un conjunto duplicado 
de datos actualizados, se borra el balón utilizando OVER 1, y 
se vuelve a dibujar utilizando los datos duplicados. Observe que 
el balón puede moverse fuera de la parte izquierda y derecha 
de la pantalla en forma de enrosque. De hecho esto es necesario 
para eludir las flechas de la línea de abajo. 

Para aquellos con aparatos en color hay que indicar que el 
programa está en blanco y negro porque si se empleasen más 
de dos colores, el balón podría cambiar de color al moverse de 
un atributo de cuadro a otro; quizás esto no importe, porque 
también sale bien en un aparato en blanco y negro. 

El programa muestra los principios anteriores de presenta- 
ción de pantalla rodante hacia la izquierda y hacia la derecha de 
forma que cada carácter es rotado a la izquierda con RLA, o 
hacia la derecha con RRA y, si se transfiere un bit al CARRY 
(acarreo) este es recogido por el byte del carácter adyacente. 
Este se tratará de nuevo en el Capítulo 9. 

Para mostrar el rodamiento descendente con pixel, el si- 
guiente programa (programa 6.20) dibuja una onda sinusoidal y 
una línea en la parte superior de la pantalla; después la rodará 
hacia abajo hasta que terminamos con una “carretera” negra 
suavemente ondulada. Esto puede utilizarse en un programa de 
carreras de coches. También muestra la forma de poner “steps” 
no enteros en un lazo (ver Capítulo 7). 


19 FOR a=09 TO 4*PI STEP Pl/44 SUB a—4*PI 
PLOT 109+SIN a*25,175: DRAW 109,0 
38 REM LLAMADA DESPLAZAMIENTO 23777 EF rst 48 
HACIA ABAJO DE UN PIXEL defo 3 56 
NT a EXAMINAR 1er BYTE DE MANTISA 
org 23768 PARA —ve RESPUESTA 
SET a= I Icul 23788 23 inc hi 
a=8 ( en la calculadora ) 23781 7€ ld a(h) 
23760 EF 140 23782 CB 7E bit 7,a 
defb 168 56 e 23784 20 Q4 jr nz,L2 
GUARDAR valor a en DATA BORRAR CALCULADORA si —ve 
L1 23786 CD F1 2B call 11249 
23763 11 35 5D Id de, DATA 
23766 01 05 MU ld bc,5 VOLVER AL BASIC 
23769 ED BU Idir 
23789 C9 ret 
PILA 4*PI (en calc ) 
23771 EF rst 48 BORRAR CALCULADORA 
defb 163 56 
23774 34 inc (hi) 2 
23775 34 inc (hi) 23799 CD F1 2B call 11249 
23776 34 inc (hl) 23793 CD 3A 5D Call ROLL 


APILAR DATO a 
23796 CD 24 5D call PILA 


100+SIN a*25=x 


23799 EF rst 49 
sine 

defb 31 

stack 25 

defb 52 53 72 

mult 

defb 4 

stack 198 


defb 52 55 72 
add 

defb 15 

stack 175 (=y) 
defb 52 56 47 56 


LLAMADA PLOT x,y 


23813 CD DC 22 call 8924 
GUARDAR H'L' 

23816 D9 exx 
23817 ES push hl 
23818 D9 exx 


LD B,9 LD C,199 


23819 Y1 64 UU ld bc,100 


LD DE, +ve +ve 


23822 11 01 91 ld de,257 


LLAMADA DIBUJAR 
23825 CD BA 24 call 9482 
RECUPERAR H'L' 


23828 D9 exx 
23829 El pop hl 
23830 D9 exx 


APILAR DATO a 
23831 CD 24 5D call PILA 


a+Pl/44 

23834 EF rst 48 
stack Pl/2 

defb 163 


stack 22 

defb 52 53 48 

divide 

defb 5 

add 

defb 15 

end calc routine 

defb 56 

23842 18 AF A 
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APILAR un SUB 


PILA 

23844 21 35 5D 
23847 ED 5B 65 5C 
23851 91 05 09 
23854 ED BY 
23856 ED 53 65 5C 
23869 C9 


GUARDAR DATO 


DATA 
defbaBBBY4 


Id hI|DATA 

Id de,(23653) 
ld bc,5 

Idir 

ld (23653),de 
ret 


DESPLAZAR HACIA ABAJO 


DESPLAZAR 
23866 06 28 
23868 21 AY 57 
L3 

23871 7E 
23872 FS 
23873 23 
23874 10 FB 
23876 21 BF 56 
23879 11 BF 57 
23882 Y6 B6 
23884 CD 86 5D 
23887 21 EY 4F 
23899 11 00 50 
23893 Y1 20 00 


23896 ED B4 
23898 21 FF 4E 
23991 11 FF 4F 
23994 46 48 
23906 CD 86 5D 
23909 21 EY 47 
23912 11 00 48 
23915 Y1 20 UU 
23918 ED BY 
23929 21 FF 46 
23923 11 FF 47 
23926 06 08 
23928 CD 86 5D 
23931 Y6 29 
23933 21 1F 49 
L4 

23936 F1 

23937 77 
23938 2B 
23939 19 FB 
23941 C9 


ABAJO 

23942 C5 
23943 06 97 

L5 

23945 C5 
23946 E5 
23947 ES 
23948 Y1 20 00 
23951 ED B8 


ld b,32 
ld hl,22432 


ld a,(hl) 
push af 

inc hl 

dinz L3 

ld hl,22207 
ld de,22463 
Id b,6 

call ABAJO 
ld hl,20448 
Id de,20480 
ld bc,32 


Idir 

ld hl,28223 
ld de,20479 
ld b,8 

call ABAJO 
ld hl,18449 
ld de,18432 
ld bc,32 
Idir 

ld hl,18175 
ld de,18431 
ld b,8 

call ABAJO 
ld b,32 

ld hl,16415 


pop af 
ld (hl),a 
dec hl 
dinz L4 
ret 


push bc 
ld b,7 


push bc 
push hl 
push hi 
ld bc,32 
Idar 


23953 D1 pop de 23967 E5 push hl 
23954 El pop hi 


23955 25 dec h 23968 E5 push hi 
23956 C1 pop bc 23969 Y1 28 UY Id bc,32 
23957 19 F2 djnz L5 23972 ED 88 lddr 

23959 7C ld a,h 23974 El pop hl 
23960 C6 4U8 add a,8 23975 D1 pop de 
23962 67 ld ha 23976 25 dec h 
23963 7D ld al 23977 C1 pop bc 
23964 D6 20 sub 32 23978 10 DA dinz ABAJO 
23966 6F ld la 23989 C9 ret 
Programa 6.20 


La rutina PIXEL DOWN ROLL que hay al final del pro- 
grama 6.20 ha sido escrita de nuevo para que usted pueda ver 
fácilmente los procedimientos necesarios. Puede reescribirse en 
las líneas del programa 6.19C para hacer rodar en forma des- 
cendente con pixel una ventana, convirtiéndolo al mismo tiempo 
en “independiente de la posición” y usando menos memoria. En 
su forma actual utiliza 115 bytes (+ 32 bytes para almacenar la 
línea inferior), pero reescrita como el programa 6.20A utiliza 
sólo 44 bytes (+ 1 para almacenar el byte de la columna infe- 
rior). 
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org 23769 23771 25 dec h 
CAPITULO 6 23772 46 23 ld b,35 
PROGRAMA 29A E 


23774 ES push hl 
VENTANA RODANTE HACIA ABAJO 23775 7E Id a,(hl) 
23776 12 ld (de),a 
EJEMPLO 23777 D1 pop de 
23778 7C ld a,h 
COLUMNAS 4 A 18 23779 25 dec h 
LINEAS 4 A 39 23780 E6 07 and 7 
23782 20 YA jr mz,L3 
REM LINEA 1/COLUMNA 1=PARTE 23784 7D Id a! 
SUPERIOR LH. 23785 D6 24 sub 32 
23760 11 83 46 ld de, 18051 23787 6F ld la 
23788 38 Y4 jrie, 3 
LD B, Columnas 23790 7C ld a,h 
23791 C6 48 add a,8 
23763 4U6 07 ld b,7 23793 67 ld ha 
L2 L3 
23765 C5 push bc 23794 10 EA dinz L1 
23796 F1 pop af 
23797 12 ld (de),a 
23766 D5 push de 23798 D1 pop de 
23767 1A ld a,(de) 23799 C1 pop bc 
23768 F5 push af 23800 13 inc de 
23769 D5 push de 23801 14 DA dinz L2 
23770 El pop hl 23803 C9 ret 


LDB, Líneas-1¡ 


Programa 6.204 


En el registro B se guarda el número de columnas que se van 
a hacer rodar (antes de L2) y también se guarda en el registro 
B el número de líneas — 1 (antes de L1). El registro DE se 
carga con la dirección de la pantalla del byte de la primera co- 
lumna inferior y se calcula utilizando: 


LET A = LINE (0 es la primera línea) 

LET B = INT (A/63) . 

LETC=A-—(b* 64) 

LET D = INT (C/8) 

LETE=C-(D*38) 

LET F = COLUMN (0 es la primera línea) 
ADDRESS = 16384 + (1824 * B) + (256 * E)+ (32 * (D- D)+F 
EXAMPLE LINE 38: COLUMN 3 
A=38:B=0:C=38:D=3:E=6:F=3 
ADDRESS = 16384 + (1824 * 0) + (256 * 6) + (32 * 4) +3 = 18051 


Como esta fórmula es más bien larga, puede escribir un pro- 
grama en código máquina para que haga el cálculo. Empiece 
guardando el número LINE/COLUMN en el par de registros 
HL y termine con la dirección de pantalla en DE para que así 
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pueda ir directamente a la rutina ROLL (alternativamente 
puede tener una tabla que muestre las direcciones individuales 
de las líneas/columnas para el mapa de memoria de la pantalla). 

¿Por qué no intenta escribir tal rutina? Podría serle útil para 
muchos programas, por ejemplo, para sacar caracteres directa- 
mente en la pantalla con una instrucción POKE. Si se atasca, el 
programa 6.20B le ofrece un método, y utiliza sólo 29 bytes (se- 
rían 28 bytes si LINE/COLUMNE se hubiesen almacenado en 
HL utilizando LD HL, 034Fh). La he unido al programa 6.20A. 

Estudie este programa hasta que crea que sabe como fun- 
ciona, y conseguirá tener mejor conocimiento del fichero de vi- 
sualización. 


org 23764 LD B, Columnas 
CAPITULO 6 
PROGRAMA 24B 23789 06 97 ld b,7 
L2 
VENTANA RODANTE HACIA ABAJO 23791 C5 push bc 
23792 D5 push de 
EJEMPLO 23793 1A ld a,(de) 
23794 F5 push af 
COLUMNAS 3 A 9 23795 D5 push de 
LINEAS 56 A 79 23796 El pop hl 
23797 25 dec y 
REM LINEA 09/COLUMNA B=PARTE 
SUPERIOR LH. LD B, Lineas—1 ! 
LD H, Línea 23798 46 17 Id b,23 
L1 
23760 26 4F Id h,79 23809 ES push hl 
23801 7E ld a,(hl) 
LD L,Columna 23802 12 ld (de),a a 
23803 D1 pop de 
23762 2E 43 Id 1,3 23894 7C ld a,h 
23764 11 00 40 Id de,16384 23805 25 dec h 
23767 7C ld a,h 23806 E6 07 and 7 
23768 E6 07 and 7 23808 20 QA jr nz,L3 
23770 B2 or d 23810 7D ld aj! 
23771 57 id d,a 23811 D6 20 sub 32 
23772 7C ld a,h 23813 6F ld la 
23773 E6 CU and 192 23814 38 44 jr c,L3 
23775 1F rra 23816 7C Id ah 
23776 1F rra 
23777 1F rra 23817 C6 08 add a,8 
23778 82 add ad 23819 67 ld ha 
23779 57 ld d,a L3 
23789 7C ld ah 23820 10 EA dinz L1 
23781 E6 38 and 56 23822 F1 pop af 
23783 17 rla 23823 12 Id (de),a 
23784 17 ria 23824 D1 pop de 
23785 5F ld e,a 23825 C1 pop bc 
23786 7D ld a,l 23826 13 inc de 
23787 83 add a,e 23827 10 DA djnz L12 
23788 5F ld ea 23829 C9 ret 


Programa 6.20B 
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Estos dos programas para el movimiento de pixel (programa 
6.20 y 6.20B) muestran los métodos de rodamiento del fondo a 
izquierda/derecha y hacia abajo. Le dejo a usted que haga pro- 
gramas para UP ROLL (rodar hacia arriba) y SCROLL. Debe 
recordarse que en código máquina no hay ningún método per- 
fecto. Cada persona tiene su propia forma particular de hacer 
las cosas, de escoger los registros, y de decidir si utiliza ins- 
trucciones “push/pop” o “store” para guardar un valor, etc., y 
tan pronto como el programa funcione de acuerdo con lo que 
uno desea entonces está bien. Muchos de los programas hasta 
ahora tratados podrían volverse a escribir para ahorrar memo- 
ria o reducir el tiempo de ejecución, pero entonces no serían 
tan fácil de seguir por un programador principiante. 

Hay una rutina en ROM más que es útil y que no se dispone 
en el BASIC, que es CROLL n líneas con atributos, donde n 
debe ser mayor o igual a dos (pero no mayor que 24, por 
supuesto). 

El programa 6.21 muestra la rutina que se está usando para 
borrar las líneas desde la 16 a la 24 inclusive (nueve líneas) lla- 
mando a la rutina nueve veces. Observe que el número de lí- 
neas que se van a visualizar se cuenta desde la línea 24. Puede 
usarse esta rutina en vez de la nuestra, escrita en el programa 
“MOVEDEMO” para el usuario. El registro contiene el número 
de líneas — 1 que se van a sacar, y después se hace una lla- 
mada a la 3584. La línea inferior se sobreimprime con espacios 
utilizando colores de ATTRP. 


org 23764 

23760 06 009 Id b,9 

L1 

23762 C5 push bc 
23763 416 48 ld b,8 
23765 CD 48 YE call 3584 
23768 C1 pop bc 
23769 10 F7 dinz L1 
23771 C9 ret 


Programa 6.21 


Finalmente mostramos una rutina para desplazar una panta- 
lla a la izquierda (o derecha) medio carácter cada vez. Este pro- 
grama, aunque corto, es bastante difícil de entender, y utiliza la 
instrucción de rotación decimal a la izquierda (o rotación deci- 
mal a la derecha). Esta instrucción lleva consigo el manejo de 
nibbles del registro A y que los contenidos de la dirección se co- 
loquen en el par de registros HL. RLD transfiere los bits 0 a 3 
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(HL) a los bits 7 a 4 (HL); los bits 7 a 4 (HL) a los bits 0 a 3,A; 
y los bits 0 a 3,A a los bits 0 a 3 (HL). No afecta a ninguno de 
los “flags” (bits de estado). En el programa 6.22 puede ver que 
se utiliza esta instrucción en cada línea de pantalla empleando 
el registro A para almacenar el nibble de la derecha y para co- 
locarlo en el siguiente carácter del nibble de la izquierda. El 
primer carácter del nibble de la izquierda se queda en blanco 
porque el registro A contiene un cero al comienzo de:cada línea. 
Al final de cada línea, el registro A contiene el nibble de la iz- 
quierda que será desplazado fuera de la pantalla. Esto se utiliza 
para sumarlo al byte de comienzo de línea para producir un 
efecto de enrosque. Si quiere un cambio de fondo continuo 
puede guardar el nibble de reemplazamiento de la derecha en 
forma de “data” para sumarlo al byte de la derecha, en vez de 
utilizar el nibble desplazado de la pantalla, como antes se ha in- 
dicado. Dejaré que usted escriba la rutina RIGHT ROLL (al 
comienzo del fichero de visualización hay una indicación). 


org 23769 Instrucción rodar a izquierda 
CAPITULO 6 un nibble a (hl) 
PROGRAMA 22 
L2 
RUTINA DE DESPLAZAMIENTO A IZQ. 23771 ED 6F rld 
DE MEDIO CUADRO DE CARACTER 23773 2B dec hl 
23774 10 FB dinz L2 


23760 F3 di 
Obtener comienzo de línea en de 


Empezar al final de la pantalla 
23761 21 FF 57 ld hl,22527 23776 D1 pop de 


Guardar actual pos. de pant. 
N.? de líneas de pantalla 


23777 EB ex de, hl 
23764 M6 C4 ld b,196 
11 Sumar nibble LH 
23766 C5 push bc a byte RH 
Reinicializar a=8 23778 86 add a,(hl) 
23779 77 ld (hl),a 
23767 AF xor a 


Recuperar pos. de pant. en hl 
N.? de bytes/línea 


23784 EB ex de, hl 
23768 46 29 ld b,32 23781 C1 pop bc 

23782 10 EE dinz L1 
Guardar comienzo de línea 23784 FB ei 

23785 C9 ret 


23770 ES push hl 


Programa 6.22 
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MUSICA Y 
Y EFECTOS DE SONIDO 


En este capítulo estudiaremos las formas de mejorar sus grá- 
ficos animados con sonidos interesantes y “música”. Pero pri- 
mero debemos echar una ojeada a la forma que tiene la Spec- 
trum de almacenar números en forma de coma flotante, y 
también veremos cómo convertir un número en forma de coma 
flotante en su forma comprimida. Si sus matemáticas están 
abandonadas no se preocupe demasiado por la teoría, porque la 
Spectrum puede ayudarle. Se trata sencillamente de que cual- 
quier número, decimal, entero, positivo o negativo puede ex- 
presarse en forma de cinco-bytes utilizando un procedimiento 
de conjunto para definir cada byte. Al primer byte se le llama 
exponente, y a los cuatro restantes mantisa. 

La conversión de un número “normal” a su forma de cinco- 
bytes requiere los cuatro pasos siguientes: 


1. Expresar el número en su forma binaria. 
Por ejemplo 11.375 sería 1011.011 
Recuerde que 0.1 en binario = '/, 

0.01 en binario = */, 

etc. 

2. Calcular el exponente. 
Mover la coma decimal a la izquierda o a la derecha hasta 
que esté a la izquierda del primer 1 en el número binario, y 
contar el número de movimientos realizados. 
El EXPONENTE será 128 + el número de movimientos 
realizados. 
Si los movimientos son hacia la izquierda, entonces los “mo- 
vimientos” son positivos. Si los movimientos son hacia la 
derecha, entonces los “movimientos” son negativos. En 
nuestro ejemplo, el exponente = 128 + 4 = 132 y nos que- 
damos con .1011011. 

3. Cambiar el bit a la derecha de la coma decimal para indicar 
el signo del número decimal. 
Si el número era positivo entonces el bit se pone a cero. 
Si el número era negativo, entonces el bit se pone a uno. 
En nuestro ejemplo era positivo y se transforma en 
.0011011. 
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4. Encontrar la mantisa. 


Descartar la coma decimal y dividir el número binario res- 
tante en cuatro bytes, añadiendo ceros si es necesario, para 


componer 32 bits. 


00110110 00000000 00000000 00000000 


y convertirse entonces cada byte otra vez a su número deci- 


mal. 


Y así, se puede ver nuestro ejemplo que 


11.375 = 13245000 


Si ahora está completamente confundido, como le he dicho, la 
Spectrum puede ayudarle. La Spectrum tiene un método útil 
(útil para nosotros) para almacenar variables simples, inmedia- 
tamente después del código de las variables, en su forma de 
coma flotante de cinco-bytes. De modo que todo lo que necesi- 
tamos hacer es escribir un programa corto para ingresar (con 
ENTER) un número, y después recogerio (con PEEK) en una 


variable para encontrar su forma de cinco bytes. 


5 GO TO 5099 

19 REM PROGRAMA PARA IMPRIMIR 
CUALQUIER NUMERO EN FORMA DE 
COMA FLOTANTE 

20 PRINT AT 3,8; "EL SIGUIENTE PRO- 
GRAMA CORTO IMPRIMIRA CUALQUIER 
NUMERO, DECIMAL, ENTERO O NEGA- 
TIVO EN FORMA DE COMA FLOTANTE. 

A LOS NUMEROS ENTEROS SE 
LES SUMA EL DECIMAL 0.00000000001 
PARA CONVERTIRLOS A UN NUMERO DE 
COMA FLOTANTE PERO NO AFECTA A 
SU VALOR. 

25 PRINT ” "LOS NUMEROS EN FORMA 
COMPRIMIDA TAMBIEN PUEDEN USARSE 
CON EL LITERAL DE CALCULADORA 34H 
(52d) 


49 RETURN 
100 INPUT "NUMERO:” TAB 9:n 
200 LET n$="NUMERO" 
300 LET b$="COMA FLOTANTE :” 
400 LET ct="FORMA COMPRIMIDA:” 


509 LET d$="0” 
1003 IF N <>8 THEN GO TO 1910 
1005 PRINT N$=; TAB 9; d$; PAPER 6;0 
'b$; TAB 9; d$; “YB ”;¡d$;"8 ":d$;"Y 

”,a$;"9 ”¡d$;”g" 

1006 PRINT c$;TAB 9d” "d;$;” 
176":0$;"0" 
1007 GO TO 109 
191 LET N=N+.2000000000 1 
1020 PRINT n$;TAB 9:d$; PAPER 6;N 
1025 PRINT bS$; 
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1030 LET X=PEEK 23627+256*PEEK 23 

628 

1949 FOR A=1 TO 5 

1059 PRINT TAB 5+4*a;d$;PEEK (X+A); 

1069 NEXT A 

1065 PRINT ' 

1079 DIM a(5) 

1975 LET q=0 

1976 PRINT c$; 

1089 FOR b=5 TO 1 STEP —1 

1085 LET a(b)=PEEK ((PEEK 23627+2) 

56*PEEK 23628)+b) 

1086 IF b=2 THEN GO TO 1109 

1999 IF q=4 AND a(b)=4 THEN NEXT b 

1100 LET q=q+1 

1110 NEXT b 

1120 LET q=q-2 

1125 LET x=(a(1)-80) 

1126 IF x>=64 THEN GO TO 2048 

1130 LET e=x+(q*64) 

11490 PRINT TAB 9;d$;e; 

1159 FOR b=1 TO q+1 

1160 PRINT TAB 9+b*4; d$;a(1+b); 

1179 NEXT b 

1189 PRINT 

119 GO TO 108 

2000 PRINT TAB 9; d$:q*64;TAB 13;d 

$;¡a(1) 80; 

20190 FOR b=1 TO q+1 

2020 PRINT TAB 13+b*4¡d$;a(1+b); 

2030 NEXT b 

2040 PRINT: GO TO 100 

5020 DATA 24,79,5,2, "PARE LA CINTA” 

51090 DATA 15,167,7,4, "NUMEROS” 

5204 DATA 15,138,24,"______” 

52590 DATA 24,15,1,2, "PULSE CUALQUIER 

TECLA” 

55090 DATA 31,170,1,2,"INSTRUCCIONES” 

6044 BORDER 45: PAPER 6: INK Y: CL S 

6014 LET n=8 

6054 RESTORE 5200 

6104 FOR a=1 TO 4 

6200 INK a: GO SUB 8008 

6344 PAUSE 54: NEXT a 

6444 PAUSE Y: CLS 

6424 INK 2: GO SUB 8008 

6459 INK Y: PAPER 7: GO SUB 19 

7000 RESTORE 5250: INK 2: GO SUB 

8000 

7005 IF INKEYS<>"”” THEN GO TO 78 05 

7006 IF INKEYS=”” THEN GO TO 700 6 

7014 CLS : GO TO 190 

8000 READ x,y,h,w,a$ 

8014 LET c=USR 32393 

8024 RETURN 

9998 CLEAR 32334: LOAD "udgs” CODE 
USR "a”,168: LOAD ”"CODE : GO TO 
5000 

9999 SAVEW "NUMBER” LINE 998: SAVE 

"udgs” CODE USR ”a”,168: SAVE "LARGE” 

CODE 32335,265 

<336 S.A.Nicholls 


Programa “Números” 
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Este programa está disponible en cinta y tiene colores, como 
parte de las series n$ b$ c$ y d$. 

Después de RUN, el programa imprimirá los cinco bytes de 
coma flotante, y la forma comprimida de cualquier número. La 
forma comprimida se discutirá más tarde. Observe que el 0 es 
tratado como un caso especial en el cual todos los bytes son 0, y 
también que 0,5 y a dan resultados distintos. 

Hasta ahora se preguntará qué tiene que ver esto con la mú- 
sica y sonido. La respuesta es que la orden BEEP del BASIC 
hace uso de la pila de la calculadora, y cualquier número alma- 
cenado en la pila debe ponerse en formato de cinco-bytes. 

Ahora podemos buscar la forma de convertir en código má- 
quina la instrucción BEEP duración, tono. Este método con- 
siste en apilar el valor de la duración y del tono, en formato de 
cinco-bytes, en la parte superior de la pila de la calculadora y 
llamar después a la rutina BEEP desde la dirección 03F8h 
(1016 d). 

Si tomamos, por ejemplo, BEEP.1,11, entonces, utilizando el 
programa NUMBERS podemos convertir .1 y 11 en su forma 
de cinco-bytes: 


= 125 76 204 204 204 
11 = 13248000 


Ahora debemos encontrar la manera de apilar esos diez bytes 
consecutivamente en la pila de la calculadora. Un método po- 
dría ser encontrar la dirección de comienzo desde la cual los 
DATA deben ser transferidos mediante PEEK a la variable 
STACKEND del sistema, y utilizar después una instrucción 
LDIR tal y como se muestra en el programa 7.1 


org 23760 23772 ED 53 65 5C ld (23653),de 

CAPITULO 7 

PROGRAMA 1 LLAMADA BEEP 

BEEP .1,11 

ENCONTRAR STACKEND 23776 CD F8 43 call 1816 
23779 C9 ret 

23760 ED 5B 65 5C ld de,(23653) DATA 

23764 21 E4 5C ld h,DATA 2.1 (forma de 5 bytes) 

23767 01 YA YY ld bc,19 defb 125 76 204 204 244 

23779 ED BY4 Idir 


11 (forma de 5 bytes) 
ACTUALIZAR STACKEND defb 132 48000 


Programa 7.1 


El RESET es necesario para volver a cargar STACKEND 
con la nueva dirección de la parte superior de la pila. Recuerde 
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que LDIR termina con HL y DE conteniendo la dirección del 
último byte transferido + 1. Cuando se llama a la rutina BEEP 
desde la dirección 03F'8 ésta toma los dos valores superiores de 
la pila y opera con ellos para obtener la duración y el tono re- 
queridos. Se reinicializa la pila para volver al BASIC. 

Otro método para apilar números enteros es utilizar LDA,n y 
la subrutina CALL STACK A de la dirección 2D28h (11560 d) 
para números entre 0 y 255, ó LDBC,nmn y la subrutina CALL 
STACK BC de la dirección 2D2Bh (115 63 d) para números en- 
tre 0 y 65535. Entonces el programa 7.1 puede escribirse como 
el programa 7.2. 


org 23769 23772 ED 53 65 5C ld (23653), de 
CAPITULO 7 23776 3E YB ld a,11 
PROGRAMA 2 
BEEP .1,11 APILAR valor a 

23778 CD 28 2D call 11569 
ENCONTRAR STACKEND 

CALL BEEP 
237640 ED 5B 65 5C ld de (23653) 
23764 21 E9 5C Id hI,DATA 23781 CD F8 03 call 1916 
23767 01 15 0U ld bc,5 23784 C9 ret 
23779 ED BO Idir DATA 

M.1 (forma de 5 bytes) 
ACTUALIZAR STACKEND defb 125 76 204 204 294 


Programa 7.2 


Por último, para aquellos que deseen algo más que los números 
de coma flotante, podemos convertirlos en su forma compri- 
mida y utilizar el literal 34h(52 d) de la calculadora para apilar 
datos en esta forma comprimida. 

Las etapas para convertir los números de cinco-bytes son las 
siguientes: 
1. Empezar con el quinto byte, sacar todos los números cero 
hasta que encontremos un número distinto de cero o hasta 
que lleguemos al segundo byte. 
El cociente es entonces el número de los bytes restantes 
menos 1. 
Restar 50h (80d) del exponente y, si el resultado es mayor 
o igual a 40h (64d) entonces ir a la instrucción 6. 
Cambiar el exponente a (exponente — 80d) + (cociente * 
64d). 
Ir a la instrucción 7. 
El exponente tiene ahora dos bytes. El primer byte es el 
cociente * 64d; el segundo byte es el exponente — 80d. 
Colocar los bytes que quedan, detrás de los bytes del expo- 
nente modificados. 


5. POL OO DO 


Para volver a convertir un número comprimido en su forma 
de cinco-bytes son necesarias las siguientes etapas: 
1. Dividir el primer byte por 64d. 
2. Si queda un resto, entonces el exponente será 80d + el 
resto. 
3. Si no hay resto entonces el exponente será 80d + el se- 
gundo byte. Ñ 
4. El cociente es utilizado para encontrar cuantos bytes extra 
siguen al exponente. 
El número de bytes extra es el cociente + 1. 
Por ejemplo 11 = 5248 en su forma comprimida: 
52 dividido por 64 = 0 con 52 
de resto; cociente = 0 
bytes posteriores = 1. 
Como hubo resto, entonces el exponente = 52 + 80 = 132 
1 byte posterior especificado = 48 
Rellenar los 5 bytes con 0 0 0 
Por lo tanto, 52 48 = 13248000 
De nuevo, si todo esto es excesivo para usted por ahora, en- 
tonces el programa NUMBERS hará todas las conversiones por 
usted. Utilizando números en forma comprimida, BEEP .1,11 
puede convertirse al código máquina, como se muestra en el 
programa 7.3. 


org 23769 STACK 11 (FORMA COMP.) 
CAPITULO 7 
PROGRAMA 3 defb 52 52 48 
FIN CALC 
BEEP .1,11 
UTILIZAR CALCULADORA 
defb 56 


23760 EF rst 49 

LLAMADA BEEP 
APILAR 4,1 (FORMA COMP.) 

23771 CD F8 g3 call 1916 
defb 52 237 76 204 204 294 23774 C9 ret 


Programa 7.3 


En el programa 7.3 RST 28h (40d) llama a la rutina CALCU- 
LATOR, y defb 38h (56d) es el literal END CALC. 

El FANFARE BEEP para el programa “CROSS” es una 
combinación de los tres método, a saber, almacenamiento de los 
números como DATA, utilización de STACK A y utilización del 
literal 34h (52d) para apilar números en forma comprimida. En 
este programa se tiene la suerte de que los bytes de la mantisa 
de los decimales .1, .8 y 0.5 en forma comprimida son iguales, 
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por lo que sólo se necesita almacenar en DATA el byte del ex- 
ponente. 


1 REM CAPITULO 7 VALOR 
2 REM PROGRAMA 4 defb Y 76 204 204 204 56 
REM FANFARE BEEP 23789 E1 pop hl 
19 FOR a=1 TO 8 23781 7E ld a,(hl) 
20 READ b,c 23782 ES push hl 
30 BEEP b,c 23783 CD 28 2D call 11569 
50 NEXT a 23786 CD F8 43 call 1016 
68 DATA .1,11,.1,11,.8,16,.95, 23789 Et pop hl 
11,.05,16,.05,11,.05,16,1,20 23799 C1 pop bc 
org 23769 23791 23 inc hi 
23760 46 07 ld b,7 23792 10 E3 dinz LAZO 
23762 21 00 5D Id h DATA 23794 3E 91 Id a,1 
LAZO 23796 CD 28 2D call 11568 
23765 7E ld a,(hl) 23799 3E 14 ld a,20 
23766 32 DE 5C ld (VALOR),a 23801 CD 28 2D call 11569 
23769 23 inc hl 23884 CD F8 43 call 1916 
237798 C5 push bc 23897 C9 ret 
23771 ES push hi DATA 
23772 EF rst 49 defb 237 11 237 11 249 16 236 
defb 52 defb 11 236 16 236 11 236 16 


Programa 7.4 


Ya he mostrado como convertir cualquier orden BEEP del 
BASIC al código máquina. Esto está bien para hacer música, 
pero de esta forma no obtendremos efectos de sonido decentes. 
Para este tipo de sonidos necesitaremos entrar en la rutina 
BEEP en un punto diferente, 03B5h (949d). Después, los va- 
lores de la duración y del tono que han sido sacados de la pila 
son manipulados, y se termina con el “tono” en el registro HL y 
la “duración” en el registro DE. De esta forma se podría escri- 
bir un programa para conseguir un tono con cadencia incremen- 
tando el valor almacenado en HL y llamando a la rutina BEEP 
repetidamente mediante un lazo “FOR/NEXT”. Podemos reali- 
zar esto como se muestra en el programa 7.5. 


org 23768 LLAMADA BEEP 

CAPITULO 7 

PROGRAMA 5 23774 CD B5 93 call 949 
23773 C1 pop bc 

SONIDO 1 23774 El pop hi 
23775 23 inc hl 

23768 96 FF ld b,255 23776 18 F3 dinz LAZO 

23762 21 91 00 ld hl,1 

LAZO 

23765 11 01 00 ld de,1 23778 C9 ret 

23768 ES push hi 

23769 C5 push bc 

Programa 7.5 
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Cuando ejecute el Programa 7.5 observará que según varíe el 
tono así cambiará gradualmente la duración. Esto es así debido 
a que de hecho, la duración es función de los valores de los re- 
gistros HL y DE. Para igualar la duración debemos decremen- 
tar el valor de DE según se incremente el valor de los regis- 
tros. HL. Así llegamos al Programa 7.6. 


org 23760 23770 C5 push bc 

CAPITULO 7 23771 CD B5 43 call 949 

PROGRAMA 6 23774 C1 pop bc 
23775 El pop hi 

SONIDO 2 23776 D1 pop de 
23777 23 inc hi 

23760 06 64 Id b,189 23778 18 dec de 

23762 21 Y1 04 ld hi,1 23779 10 F3 djnz LAZO 

23765 11 65 0u ld de, 1481 

LAZO 

23768 D5 push de 23781 C9 ret 

23769 ES push hl 

Programa 7.6 


Tenemos un último método para producir sonido con la Spec- 
trum, que consiste en enviar “señales” directamente al altavoz 
conmutándolo a alta o a baja de la misma manera que lo hace la 
rutina de la ROM. Este método parece poco útil para obtener 
notas musicales, ya que necesitaríamos conocer la frecuencia de 
conmutación de alta/baja para cada nota, y de hecho podría ser 
una repetición de la rutina de la ROM. Sin embargo, se utiliza 
en programas de juegos para producir un sonido de tipo “ruido 
blanco” para explosiones; etc. 

La instrucción para comunicar con el altavoz es OUT (254), A. 
Esta instrucción no sólo controla el altavoz, sino también el co- 
lor de los bordes de la siguiente forma: 

1. Si el bit 0,A está a uno, entonces se activa el azul. 
Si el bit 0,A está a cero, entonces se desactiva el azul. 
2. Si el bit 1,A está a uno, entonces se activa el rojo. 
Si el bit 1,A está a cero, entonces se desactiva el rojo. 
3. Si el bit 2,A está a uno, entonces se activa el verde. 
Si el bit 2,A está a cero, entonces se desactiva el verde. 
4. Si el bit 4,A está a uno, entonces el altavoz está en “alta”. 
Si el bit 4,A está a cero, entonces el altavoz está en “baja”. 
Como puede ver, si el bit 4 cambiase de cero a uno a intervalos 
regulares, entonces se podría producir una nota dependiente de 
este intervalo. 

Para obtener un ruido blanco auténtico necesitaríamos con- 
mutar con un intervalo aleatorio, pero ello requeriría una rutina 
larga para obtener el número aleatorio y examinar el bit 4,A 
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cada vez, lo que originaría una pausa “larga” entre cada conmu- 
tación. Por lo tanto debemos encontrar un método rápido de ob- 
tención de “números aleatorios”. Esto no es tan difícil como pa- 
rece; a nosotros sólo nos interesa el estado del bit 4,A, y para 
nuestros propósitos los bytes de la ROM son suficientemente 
aleatorios. Con esto en mente podemos escribir un programa 
que busque en cada dirección de la ROM de forma sucesiva, y 
examine el estado del bit 4 del número contenido en cada direc- 
ción para conmutar el altavoz a alta o a baja de acuerdo con él. 


org 23760 23771 00 nop 
23768 21 00 QU ld h,g 23772 YUU nop 

L1 23773 D3 FE out (254),a 
23763 7E ld a,(h!) 23775 YU nop 

23764 YY nop 23776 23 inc hl 
23765 D3 FE out (254),a 23777 7C ld a,h 
2376700 nop 23778 FE 3C cp 64 
23768 V4 nop 23784 20 ED jroz,L1 
23769 D3 FE out (254),a 23782 C9 ret 
Programa 7.7 


Hay varios puntos a observar en el programa 7.7. 

1. Las tres instrucciones OUT (254),A y NOPs producen un 
retardo. Usted puede añadirle o quitarle más y escuchar el 
efecto. 

2. La longitud de sonido es gobernada por la instrucción 
CP 60. Si se redujese a CP 40, por ejemplo, la longitud del 
sonido se reduciría de forma similar. Cualquier valor infe- 
rior a 60 se ejecuta en un área de ROM que no contiene nú- 
meros aleatorios. Pruebe y vea qué sucede. 

3. El color de los bordes también queda afectado temporal- 
mente según cambian los bits 0-2 de forma aleatoria. Para 
que los bordes permanezcan con el mismo color necesita 
reemplazar los bits 0-2 por los bits 3-5 del valor que con- 
tiene la variable BORDER del sistema. 

Si quiere experimentar con este método de obtención de música 

recuerde que se accede 50 veces por segundo a la rutina de in- 

terrupción de la ROM y ello alterará su frecuencia, por lo que 
necesitará deshabilitarla (DI) antes de su rutina, y habilitarla 

(ED después. Esto es lo que hace la rutina de la ROM, y ex- 

plica por qué no se puede producir un BREAK de un programa 

BASIC durante la ejecución de una orden BEEP. 

Dejo el resto a su imaginación e ingenuidad para que altere 
los valores contenidos en los registro HL y DE al objeto de ob- 
tener efectos maravillosos y siniestros, pero para darle una idea 
de los sonidos que se pueden conseguir usando el método ante- 
rior, la cinta contiene el Programa SOUND que tiene cinco so- 
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nidos diferentes a los que se accede pulsando las teclas de la 1 a 
la 5. El borde parpadeante produce una dimensión extra de los 


sonidos 1 y 5, y es muy simple de programar. 


Una última cuestión —produzca sonidos tan cortos como sea 
posible ya que éstos detienen todos los movimientos gráficos 
durante su ejecución. Los mejores sitios para los sonidos son 
los lazos de retardo utilizados para relentizar los movimientos 


gráficos. 


SONIDO 


Pulse teclas 1 a 5 para sonidos 
con SPACE volverá al BASIC 


10 REM ? RETURN RUN GO SUB X 
PRINT THEN G TO ?] LET PRINT THEN O 
TO JJLET PRINT THEN W TO D] LET PRINT 
THEN _ TO _] LET PRINT THEN g TO [] 
LET >? STEP £”? RETURN (Y GO SUB X 
THEN G>=?<> 
2 OR Id? 

25>INK 2: PAPER 7:BORDER 4:CLS 

30 LET x=16: LET y=100: LET w=2: LET 
h=4: LET a$="PARE LA CINTA” 

40 PAPER 8: RANDOMIZE USR 32393 

50 PRINT %40;AT 0,3;"PULSE CUAL- 
QUIER TECLA PARA EMPEZAR” 

60 PAUSE Y 

65 CLS 

70 LET x=8: LET y=175: LET w=5: LET 
h=15: LET a$="SONIDO!” 

80 INK 2: RANDOMIZE USR 32393 

90 PRINT AT 19,2;"Pulse teclas 1 a 5 
para sonidos” 
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100 PRINT AT 21,3;"Con SPACE volverá 
al BASIC” 

114 RANDOMIZE USR 23760 

120 CLS 

130 LET x=24: LET y=100: LET h=5: LET 
w=1: LET a$=”To re RUN enter GOTO 65 

144 RANDOMIZE USR 32393 

159 STOP 
9998 CLEAR 32334: LOAD ”"CODE: GO 
TO 25 
9999 SAVE "SOUNDS” LINE 9998: SAVE 
"LARGE"CODE 32335,265: STOP <336 
S.A.Nicholls 


Org 23769 

COMIENZO 

23760 Y1 FE F7 ld bc,63486 
23763 ED 78 in a,(c) 
23765 F5 push af 
23766 CB 47 bit Va 
23768 CC 47 5D call z,¡BEEP1 
23771 F1 pop af 
23772 FS push af 
23773 CB 4F bit 1,a 
23775 CC 29 5D call z, BEEP2 
23778 F1 pop af 
23779 FS push af 
23780 CB 57 bit 2,a 
23782 CC 44 5D call z,BEEP3 
23785 F1 pop af 
23786 F5 push af 
23787 CB 5F bit 3,a 
23789 CC 5F 5D call z,BEEP4 
23792 F1 pop af 
23793 F5 push af 
23794 CB 67 bit 4,a 
23796 CC 7B 5D call z,REEP5 
23799 F1 pop at 
23809 3E 07 lda7 . 
23882 CD 9B 22 call 8859 
23805 01 FE 7F ld bc,32766 
23808 ED 78 in a,(c) 
23814 CB 47 bit V,a 
23812 C8 ret z 

23813 18 C9 jr COMIENZO 
BEEP1 

23815 M6 32 ld b,50 

L1 

23817 C5 push bc 
23818 21 64 YY ld hl,199 

Le 

23821 11 YA VU ld de, 14 
23824 ES push hl 
23825 7D ld a,1 

23826 E6 907 and 7 
23828 CD 9B 22 call 8859 
23831 CD B5 03 call 949 
23834 El pop hi 
23835 11 YA 09 ld de,18 
23838 AF xor a 

23839 ED 52 sbc hl,de 
23841 7C ld ah 
23842 B5 or 1 
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23843 24 E8 
23845 C1 
23846 19 El 
23848 C9 
BEEP2 
23849 21 00 00 
13 

23852 7E 
23853 Qu 
23854 D3 FE 
23856 04 
23857 04U 
23858 D3 FE 


23860 00 
23861 08 
23862 D3 FE 
23864 09 
23865 Qu 
23866 D3 FE 
23868 09 
23869 23 
23879 7C 
23871 FE 3C 
23873 20 E9 
23875 C9 
BEEP3 

23876 06 45 

L5 

23878 C5 
23879 21 32 0U 
L4 

23882 11 YA 4 
23885 ES 
23886 CD B5 83 
23889 El 
23890 11 32 00 
23893 19 
23894 7C 
23895 FE 04 
23897 24 EF 
23899 C1 
23909 19 ES 
23902 C9 
BEEP4 

23903 96 YA 
L6 

239085 C5 
23906 21 44 YA 
L7 

239089 11 41 UY 
23912 ES 
23913 CD B5 43 
23916 El 
23917 AF 
23918 11 10 09 
23921 ED 52 
23923 7C 
23924 B5 
23925 20 EE 
23927 C1 
23928 19 E7 
23939 C9 
BEEPS 


jr nz,L2 
pop bc 
djnz L1 
ret 


ld hI,9g 
ld a,(hl) 


nop 
out (254),a 
nop 
nop 
out (254),a 


nop 
nop 
out (254),a 
nop 


nop 
out (254),a 


push bc 
ld hl,59 


ld de, 19 
push hl 
call 949 
pop hi 
Id de,59 
add hl,de 
ld ah 
cp 4 

jr nz,L4 
pop bc 
dinz L5 
ret 


Id b,10 


push bc 
ld h!,1824 


ld de, 1 
push hl 
call 949 
pop hl 
xor a 

ld de,16 
sbc hl,de 
ld a,h 
or 1 

jr nz,L7 
pop bc 
dinz L6 
ret 
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23931 21 91 0U 


23934 11 05 0Y 
23937 ES 
23938 CD B5 93 
23941 El 
23942 23 
23943 7C 
23944 FE 02 
23946 29 F2 
23948 M6 FA 
L9 

23958 C5 


23951 78 

23952 E6 46 
23954 CD 9B 22 
23957 21 90 Y1 
23969 11 01 Yu 
23963 CD B5 03 
23966 C1 

23967 10 ED 
23969 C9 


ld hi,1 


ld de,5 
push hl 
call 949 
pop hl 
inc hl 

ld ah 
cp 2 

jr nz,L8 
ld b,250 


push bc 


ld a,b 
and 6 
call 8859 
ld hl,400 
ld de, 1 
call 949 
pop bc 
djinz L9 
ret 


Programa “Sound” 
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ATTRIBUTE, SCREEN$ 
Y POINT 


Como usted ya sabe, si conoce la programación de juegos en 
BASIC, llegará un momento en el que se necesitará encontrar 
un carácter que está en una posición particular de la pantalla. 
Esto es útil, por ejemplo, si tiene que examinar si un misil ha 
dado en el blanco, o si ha conseguido alunizar. Hay tres formas 
de hacer esto en BASIC, a saber: 

Con ATTRIBUTE que examina INK: PAPER: FLASH: 
BRIGHT, es decir, el estado de un cuadro de carácter, y re- 
gresa con un número entre 0 y 255. 

Con SCREENS que examina el carácter en un cuadro particu- 
lar (pero sólo los caracteres comprendidos entre CODE 32 y 
127); para los restantes caracteres devuelve una serie vacía). 
CON POINT que examina el estado de un pixel de pantalla: 
0 = no dibujado, 1 = dibujado. 

Los tres métodos anteriores son disponibles en código máquina 
haciendo llamadas a rutinas ROM. 


ATTRIBUTE (línea, columna) 


La rutina en código máquina —call 9603— requiere el número 
de línea en el registro C y el número de columna en el registro 
B. El valor de ATTRIBUTE después de llamar a la rutina 
queda almacenado en la parte superior de la pila de la calcula- 
dora. El valor de ATTRIBUTE se calcula de la siguiente 
forma: 

Valor = 128 * (número de FLASH) + 64 * (número de 
BRIGHT) + 8 (color de PAPER) + color de INK 

Puede ver en la fórmula anterior que el valor está comprendido 
entre 0 y 255 y así puede moverse fácilmente desde la pila al 
registro A utilizando la rutina “CALC VALUE TO A” —call 
11733— y probarse con una instrucción CPn. 

El programa 8.1 muestra el método anterior utilizado para 
PRINT AT 0, 20; PAPER 1; INK 7; FLASH 1; CHR$ 144 (que 
ha sido redefinido como un hombre). El programa examina en- 
tonces cada posición de pantalla, mostrada por un signo >, 
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hasta que encuentra el valor 143 de ATTR; después vuelve al 


BASIC. 


org 23768 

CAPITULO 8 
PROGRAMA 1 
EXAMINAR ATRIBUTOS 


ESTABLECER UDG 


23760 ED 5B 7B 5C ld de (23675) 
23764 21 42 5D ld hl|DATA3 
23767 Y1 48 YY ld bc,8 
237740 ED BQ Idir 

BORRAR PANTALLA 

23772 3E 02 la a,2 

23774 CD 41 16 call 5633 
23777 CD 6B 9D call 3435 
23780 3E 02 ld a,2 

23782 CD Y1 16 cal 5633 
IMPRIMIR UDG 

23785 11 2E 5D ld de,DATA 1 
23788 Y1 19 UU ld bc,16 
23791 CD 3C 29 call 8252 


ESTABLECER OVER 1 
23794 FD 36 57 83 ld (iy+87),3 


REINICIALIZAR COMIENZO EN 9/9 


23798 AF + xor a 
23799 32 40 5D ld (COL),a 
IMPRIMIR > 

La 

23882 11 3E 5D ld de, DATA2 
23805 Y1 U4 UU Id bc,4 
23808 CD 3C 20 call 8252 
RETARDO 

23811 21 FF FF 1d hl,65535 
L2 

23814 2B dec hi 
23815 7C ld ah 
23816 B5 or 1 

23817 20 FB jr nz,L2 


Programa 8.1 
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SACAR > 

23819 11 3E 5D ld de DATA2 
23822 01 14 YU ld bc,4 
23825 CD 3C 28 call 8252 
INC. COLUMNA 

23828 3A 44 5D ld a,(COL) 


23831 3C inc a 
23832 32 44 5D ld (COL),a 


OBTENER COLUMNA/LINEA en BC 
23835 ED 48 3F 5D ld bc, (LINEA) 


LLAMADA ATTR. 8 
OBTENER VALOR EN A 


23839 CD 83 25 call 9693 
23842 CD D5 2D call 11733 
EXAMINAR SI 143 

23845 FE 8F cp 143 


MOVERSE A SIGUIENTE POS. 
23847 249 D1 jr nz,L1 
REINICIALIZAR OVER Y 

23849 FD 36 57 00 ld (iy+87),0 
23853 C9 ret 
IMPRIMIR DATOS UDG 

DATA1 


defb 22 Y 29 17 1 167 181 
defb 144 188 177169 


PRINT > DATA 


DATA2 
defb 22 
LINEA 
defb Y 
col 
defb Y 62 


DATOS UDG 


DATA3 
defb 24 153 126 153 24 36 36 192 


Cuando se ejecuta, el programa 8.1 da la apariencia de un mi- 
sil moviéndose lentamente hacia un hombre, y vuelve al BASIC 
cuando choca con el hombre. Por supuesto, podría utilizar una 
rutina de choque en vez de la instrucción RETURN (con 
efectos de sonido). Esta forma de examinar las posiciones de 
pantalla para blancos, etc., está bien, pero es algo limitada por- 
que todos los blancos deben tener el mismo valor de ATTRI- 
BUTE. 


SCREENS (línea, columna) 


Al igual que con la rutina ATTR el número de línea se guarda 
en el registro C, y el número de columna en el registro B antes 
de hacer una llamada a 9528. La rutina guarda los parámetros 
de la serie en la parte superior de la pila de la calculadora en 
forma de cinco-bytes. El uso de la pila de la calculadora para 
guardar los parámetros de la serie es una buena idea puesto 
que hasta ahora sólo la hemos usado para guardar números en 
forma de cinco-bytes. Hay que decir que hay literales de calcu- 
ladora para manipular series, pero en vez de poner la serie en 
la pila, sus “parámetros” se guardan en forma de cinco-bytes. 
Para poner los parámetros de la serie en la pila, el par de regis- 
tros BC guarda la longitud de la serie, y el par de registros DE 
guarda la dirección de comienzo de la serie. Para series senci- 
llas, el registro A almacena el valor cero. Una llamada a la ru- 
tina —call 18929— colocará los parámetros en la pila en el or- 
den correcto. De forma similar, la rutina —call 11249— tomará 
el último “valor” de la pila y lo colocará en los registros A, B, 
C, D y E; de nuevo BC contendrá la longitud de la serie, y DE 
la dirección de comienzo. 

El programa 8.2 muestra las rutinas que se usan para impri- 
mir el carácter (% en la posición SCREEN 0,20; y cuando se 
ejecuta termina con dos (WD en 0,20; y 0,21. En vez de PRINT 
STRING —call 8252— podríamos haber utilizado LD A,(DE) 
para examinar si el carácter anual está en la posición 0, 20; y 
después realizar las acciones oportunas. 

Sin embargo, hay una limitación en la rutina SCREENS del 
BASIC, y es que sólo encontrará caracteres comprendidos en- 
tre CODE 32 y CODE 127; para cualquier otro valor se obten- 
drá una serie vacía. Esto excluye la utilización de este método 
para encontrar UDGs, y en BASIC esto es una gran contrarie- 
dad para los programas de juegos. En código máquina esto no 
es problema, puesto que hay formas “rápidas” de engañar a la 
ROM y de colocar los UDGs en el conjunto de caracteres. La 
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variable del sistema CHARS-23606/7 normalmente guarda la di- 
rección de comienzo del conjunto de caracteres —256, es decir 
15360, y es utilizada por la rutina SCREEN$ para encontrar el 
carácter. Podemos establecer esta variable para que apunte al 
comienzo de los UDGs —256 antes de que se haga la llamada a 
SCREENS (convirtiendo UDG“A” en CODE 32, UDG*“B” en 
CODE 33, etc.) y después reinicializarla a su valor normal. De 
esta forma podemos examinar los UDGs para encontrar el ca- 
rácter que queremos. 


org 23760 23779 3E 14 ld a,20 

CAPITULO 8 23781 D7 rst 16 

PROGRAMA 2 23782 3E49 ld a,64 
23784 D7 rst 16 


SCREENS (0,20) 
LLAMADA SCREENS 
BORRAR PANTALLA 


23785 06 14 ld b,29 
23760 3E 02 ld a,2 23787 YE YU ld c,g 
23762 CD 91 16 call 5633 
23765 CD 6B YD call 3435 23789 CD 38 25 call 9528 
23768 3E 02 ld a,2 
23779 CD 41 16 Call 5633 LLAMADA 'VALORAA,B,C,D,E 
IMPRIMIR EN 0,20 (OD 23792 CD F1 2B call 11249 
23773 3E 16 ld a,22 LLAMADA IMPRIMIR SERIE 
23775 D7 rst 16 
23776 3E 09 ld ag 23795 CD 3C 29 call 8252 
23778 D7 rst 16 23798 C9 ret 
Programa 8.2 


El programa 8.3 es lo mismo que el programa 8.1 pero esta 
vez estamos buscando CHR$ 144 antes de volver al BASIC. 


org 23836 23846 CD F1 2B call 11249 
CAPITULO 8 
PROGRAMA 3 

EXAMINAR SI ES CHR$ (32) 
SCREENS PARA UDG's por ejemplo CHR$ 144 (UDG 'A') 
23760 TO 23835 23849 1A ld a,(de) 
IGUAL QUE PROG. 1 23850 FE 20 cp 32 
ESTABLECER CARACTS. A UDG's —256 REINICIALIZAR CARACTS. A NORMAL 

23852 21 MY 3C Id hl,15368 
23836 2A 7B 5C Id hl (23675) ; 
pa eeeh 23855 22 36 5C Id (23606), hl 
23849 22 36 5C ld (23646),hl 

RESTO DEL PROGRAMA 
EXAMINAR SCREENS IGUAL QUE PROGRAMA 1 
23843 CD 38 25 call 9528 23847 PARA TERMINAR DATA3 
Programa 8.3 
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Por supuesto, podría copiar el conjunto de caracteres en 
RAM y mantener a CHARS apuntando permanentemente al co- 
mienzo —256. De esta forma puede olvidarse de los UDGs y re- 
definir cualquier carácter que desee en la nueva serie (deje sin 
cambiar las letras y los números para que el texto no se altere). 
Este método conseguirá alrededor de 50 caracteres redefinibles 
si se limita a utilizar el texto con letras mayúsculas y un mí- 
nimo de signos de puntuación. La rutina SCREENS$ reconocerá 
estos caracteres cuando aparezcan en la nueva serie de carac- 
teres. 

Hay un punto muy importante a considerar cuando utilice la 
calculadora para manejar series, y es que se hace uso del espa- 
cio de trabajo para guardar la serie y/o el resultado del cálculo. 
Si este espacio de trabajo no se borra regularmente entonces 
puede encontrarse con que en su programa aparece un mensaje 
de fuera de memoria sin razón aparente, o peor todavía, el es- 
pacio de trabajo se ejecutará en su rutina de código máquina y 
su programa se descontrolará. En la práctica es aconsejable bo- 
rrar el espacio de trabajo cada vez que se llama a la rutina 
SCREENS. La rutina de la ROM —call 5823— borra para us- 
ted el espacio de trabajo (y también borra la pila de la calcula- 
dora). Así, el programa 8.3 debería llamar a 5823 después de 
LD A,(DE) pero recuerde que debe guardar el valor de A antes 
de hacer la llamada. 


POINT 


La instrucción POINT x,y, del BASIC vuelve con un valor de 1 
si el pixel x, y está establecido (es decir, dibujado) o 0 si no lo 
está (PLOT OVER). La rutina en código máquina —call 891M4— 
requiere que la coordenada x se guarde en el registro C y la 
coordenada y en el registro B antes de hacer la llamada. Al 
igual que con las rutinas anteriores el resultado termina con el 
valor en la pila de la calculadora, y, como este valor es 0 ó 1 po- 
demos sacarlo de la pila y ponerlo en el registro A para compa- 
rarlo con un valor requerido. El programa 8.4 muestra como se 
utiliza esto para examinar la posición de pantalla 0,175, es de- 
cir, la esquina superior izquierda, primero imprime un cuadro 
negro en 0,0; después vuelve al BASIC como POINT 0,175 = 1. 
Esta rutina se utiliza en el programa “balloon” para apuntar 
(con POINT) a cada una de las posiciones del balón antes de re- 
dibujar el balón. Si la rutina vuelve con un valor de 1 entonces 
se llama a la rutina HIT. 
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org 23768 
CAPITULO 8 
PROGRAMA 4 
POINT x,y 


23760 3E 42 ld a,2 
23762 CD 41 16 call 5633 


23765 CD 6B 4D call 3435 
23768 3E 62 ld a,2 


Programa 8.4 
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23778 CD 41 16 
23773 3E 8F 
23775 D7 

23776 BE QU 
23778 46 AF 
23780 CD CE 22 
23783 CD D5 2D 
23786 FE 91 
23788 C8 


call 5633 
ld a,143 
rst 16 

Id c.g 

ld b,175 
call 8919 
call 11733 
cp 1 

ret z 


9 LA IMPRESORA 


No hay muchos programas que hagan uso de la impresora, pero 
puede ser conveniente tener algunas veces una copia de la pan- 
talla (para demostrar a los amigos que usted ha logrado las 
puntuaciones máximas, etc.). Con esto en mente trataremos 
tres órdenes del BASIC: COPY, LPRINT, y LLIST y sus 
equivalentes en código máquina. 


COPY 


Normalmente la rutina COPY pasará directamente los conte- 
nidos de las primeras 22 líneas de la pantalla a la impresora. 
Sin embargo, en código máquina podemos mejorar esto y espe- 
cificar cuantas líneas de pantalla queremos, y la línea de co- 
mienzo; así por ejemplo, podríamos copiar sólo tres líneas em- 
pezando a partir de la línea siete. 

El programa 9.1 muestra el método utilizado para copiar 
las 24 líneas, ya que algunos programas de juegos tienen la pun- 
tuación en las dos líneas inferiores de la pantalla y no se im- 
primirán con una orden directa de COPY. Puede ver que 
antes de llamar a 3762, el par de registros HL contienen la lí- 
nea de dirección de comienzo, en nuestro ejemplo —esta es 
la línea 1, y el registro B guarda el número de líneas requeri- 
do x 8 (24 x 8 = 192). 


org 23768 EJEMPLO 24 LINEAS 
CAPITULO 9 
PROGRAMA 1 23769 21 09 49 ld hl,16384 
23763 86 CB Id b,192 
COPIAR n LINEAS DE PANTALLA 23765 F3 di 
23766 CD B2 YE call 3762 
HL=LINEA COMIENZO PANTALLA 23769 C9 ret 
B=LINEAS x8 
Programa 9.1 
LPRINT 


Esta instrucción puede considerarse como la misma que PRINT 
con la única diferencia de que los caracteres de control no fun- 
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cionarán, por supuesto, y de que requiere que se abra un canal 
diferente antes de la instrucción RST 16 para enviar la salida a 
la impresora en vez de a la pantalla. Así, para LPRINT “A”, 
por ejemplo, primero hay que emplear OPEN CHANNEL 3, 
LD A, CODE “A” y después RST 16 para que se imprima. 

El programa 9.2 muestra el método anterior utilizado para 
imprimir (con LPRINT) una serie de caracteres. Si desea tabu- 
lar su impresión con LPRINT, el número de TAB debe po- 
nerse, con POKE, en la variable PRCC 23680 del sistema antes 
de la instrucción RST 16. 


org 23760 23765 11 DF 5C ld de, DATA 
CAPITULO 9 23768 01 11 9u ld bc,17 
PROGRAMA 2 
LPRINT SERIES 
LPRINT 
23771 CD 3C 28 call 8252 
ABRIR CANAL 3 23774 C9 ret 
DATA 
23764 3E 93 ld a,3 defs Este es el programa 2 
23762 CD 81 16 call 5633 
Programa 9.2 
LLIST 


Aunque no encuentro ninguna aplicación en la que se requiera 
un listado a la mitad de un programa, he incluido éste porque 
es una de las órdenes de impresora y es fácil de programar. 
Todo lo que se necesita es llamar a 6133. El programa 9.3 
muestra esto ensamblando el programa en BASIC y después 
listándolo con LLIST. 


org 23768 30>REM org 23768 
CAPITULO 9 49 REM ! CAPITULO 9; !'PROGRAMA 3;! 
PROGRAMA 3 50 REM ! LLIST :! 
68 REM call 6133 
LLIST 70 REM ret 
9099 REM finish 
23768 CD F5 17 call 6133 9014 RANDOMIZE USR 58098 
23763 C9 ret 99020 COPY 
9030 LPRINT 
10 IMPRIMIR PASOS 9944 RANDOMIZE URS 23768 
20 REM go 


Programa 9.3 
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CONVERSION 
10) DE PROGRAMA 


Si ha logrado llegar a este Capítulo comprendiendo todos los 

anteriores entonces le felicito —éste no le va a ocasionar ningún 

problema—. Si no está demasiado seguro acerca de cualquiera 
de las rutinas anteriores, le aconsejo que vuelva a leer el Capí- 
tulo en cuestión antes de empezar éste. 

En este capítulo espero mostrar la forma de hacer un pro- 
grama de juegos enteramente en código máquina utilizando un 
programa en BASIC como guía. 

Sin duda usted tendrá su propia manera de hacer un pro- 
grama en BASIC. Tal vez tiene una idea y la desarrolla en la 
Spectrum añadiendo rutinas conforme las va pensando, y ter- 
mina con un programa completamente desestructurado, pero 
que funciona, y que sólo usted puede seguir. Este método es 
satisfactorio, pero puede darse cuenta de que si intenta arre- 
glar el programa unas semanas después ni siquiera usted podrá 
seguirlo. Creo que el mejor método es hacer un organigrama de 
la idea básica y después añadir las rutinas que sean necesarias, 
acabando con un diagrama de flujo completo y estructurado a 
partir del cual puede escribirse el programa en BASIC, y tal 
vez mejorarse con color, sonido y UDGs. Y lo más importante, 
así tendrá un programa fácil de convertirse al código máquina. 

El programa que convertiremos en este Capítulo se llama 
“CROSS” y empieza como programa para controlar a un hom- 
bre que pasa obstáculos hacia un lugar seguro. Con esta idea se 
hizo el organigrama. Supone que la rutina principal establece 
las variables, imprime las instrucciones y efectúa la visualiza- 
ción, y entonces un lazo examina el movimiento del hombre y 
su posición “nueva” de pantalla. Hay dos puntos de salida de 
este lazo principal: 

1. Si el hombre es alcanzado ingresamos la rutina HIT y exa- 
minamos las vidas que le quedan; si no le quedan vidas el 
juego termina, en caso contrario volvemos a entrar en el 
lazo principal. 

2. La rutina HOME, que también examina el número de lu- 
gares a salvo llenados, y añade arañas, o incrementa la ve- 
locidad antes de volver al lazo principal. 

A partir de este diagrama de flujo se hizo la versión de 
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IMPRIMIR 
sólo la 
primera araña 


a salvo y velocidad = 0 


IMPRIMIR 


lugares a salvo] 
(borrar) 


Borrar 
hombre 
Increment: 
¡contador hombre 
RODAR 
PANTALLA 
Incrementar 


puntuación en 50| 
e imprimiria 


Comparar altas 
puntuaciones 


Examinar 
nueva posición 


hombre 
¿4 lugares:a salvo| 
completos? 
1] 
ho ¿Lo alcanza? 
Prima e no imprimir nuevas 


= 4, 8,0127 


altas 
Poner puntuaciones 
¿A SALVO? hombre en 


E lista base 
no Aeris 
Incrementar Imprimir pe 
velo: Reimprimir mensajes 
hombre Decrementar de juego y 


das juego nuevo 


Examinar 
movimiento 
hombre 


¿Hacia arriba? 
sí 
Incrementar 
puntuación e 
imprimirla 


Lugares a 
salvo < 36 
sí 


Añadir 
arañas 
aleatorias 


no 


Reinicialización 
del sistema 
fin 


Rutina 
FANFARE 
BEEP 


Figura 10.1 Diagrama de Flujo para el programa “Cross”. 
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“CROSS” en BASIC. Si compara el programa actual con el dia- 
grama de flujo podría ser capaz de reconocer todas las rutinas. 

El programa, aunque es muy sencillo, se mejora mucho utili- 
zando los UDG:s, colores, y sonido. Hace un poco de trampa uti- 
lizando una rutina en código máquina para hacer rodar líneas de 
la pantalla a la izquierda o a la derecha un pixel cada vez, pues 
una versión en BASIC de esto aumentaría su lentitud de forma 
increíble. 

Se ingresa el código máquina con POKE en la dirección de 
memoria correcta mediante el programa en BASIC. Esto se po- 
dría haber hecho con una instrucción LOAD código “máquina” 
XX, n para cargar el código directamente desde la cinta. 

Antes de continuar con este Capítulo asegúrese de que com- 
prende completamente el funcionamiento del programa, ya que 
ahora lo analizaremos línea por línea para convertirlo al código 
máquina. 


20 CLEAR A GO TO 49 
25 BEEP 01, b— 
q ERINT O un E PAPER 8; INK 8; AT a, y2; 


E o AT 11, 5;"por favor espere un mo- 


mo FOR a=32244 TO 32494 

69 READ b: POKE a, b: NEXT a 

70 DATA 14, 8, 229, 17, 31, 0, 25, 126, 237, 
82, 31, 6, 32, 126, 31, 119, 35, 16, 250, 225, 36, 
13, 32, 234, 281 

80 DATA 14, 8, 175, 229, 17, 31, 9, 237, 82, 
126, 25, 23, 6, 32, 126, 23, 119, 43, 16, 259, 
225, 36, 13, 32, 233, 281 

99 DATA 33, 95, 64, 205, 13, 126, 33, 128, 64, 
295, 244, 125, 33, 128, 64, 205, 244, 125, 33, 
223, 64, 205, 13, 126, 33, O, 72, 205, 244, 125, 
33, 9, 72, 205, 244, 125, 33, , 72, 205, 244, 125 
100 DATA 58, 121, 92, 9, 9, 8, 0, B, 9, Q, 239, 
2, 49, 20, 33, 64, 72 205, 244, 125, 33, 64, 72, 
205, 244, 125, 33, 72, 205, 244, 125, 24, 18, 
33, 95, 72, 295, DEN 126, 33, 95, 72, 205, 13, 
126, 33, 95, 72, 205, 13, 126 

118 DATA 33, 128, 72, 285, 244, 125, 33, 192, 
72, 205, 244, 125, 33, 192, 72, 205, 244, 125, 
33, 31, 80, 595, 13, 126, Sa 86, 205, 


295, 13, 126, 33, 128, 72, 205, 244, 125, 33, 192, 
72, 205, 244, 125, 291 
159 LET a=PEEK 23675+256*PEEK 23676 
160 FOR b=a TO a+167 
174 READ c: POKE b, c: NEXT b 
189 DATA 15, 18, Pe 127, 255, 40, 16, 128, 64, 
32, 254, 254, 255, 48, 16 
198 DATA 127, ESA 127, 127, eS 255, 21, 8, 
254, 254, 254, 254, 255, 255, 64, 128 
209 DATA 9, 248, 196 196, 254, 254, 49, 16, 
24, 24, 36, 126, 60, 99, 165, 66 
218 DATA 56, 48, 146, 124, 56, 56, 48, 108, 1, 
2, 4, 127, 127, 255, 28, 8 
229 DATA 249, 72, 68, 254, 255, 255, 28, 8, Q, 
35, 35, 127, 127, 28, 8 
239 DATA 127, 127 127% 12%, a 255; 2. La 
254, 254, 254, 254, 254, 255, 168, 16. 
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240 DATA 16, 41, 199, Y, 38, G, Y, 6, Q, 68, 
255, 68, 68, 255, 68, Y 

250 DATA 9, 34, 85, 143, A 163, 16 

0, Q, 0, 68, 178, 241, 233, 197, 5, Y 

260 DATA 16, 16, 16, 254, ES 31, 15, 

7,8, 0, 0, 0, 30, 255, 255 

278 DATA 96, 124, 84, 120 07. 255, 254, 252, 
e g, 2 3 , 15, 63, 255, 9, 6, 12, 152, 248, 224, 


5, 255, Y 
ed PAINT, PA Al 3:" ¿Rss (epuonlenes?" 
AT 13, 11;" eE AT 45, e 
7 'PAÚSE IF ¡NKevé2 So HEN GO TO 


295 GO TO 408 

309 CLS : PRINT AT 4, 11;"OBJETIVO” ""Guiar 
un * alrededor de una calle y un río evitando 
fe MS 2 Ar A "Una 8 vigila la isla 
central.” 

310 PRINT "Hay 4 lugares a salvo que pue- 

den usarse, por ejemplo, huecos en parte 
superior barreras tt HH" 


320 PRINT '"Una vez que los 4 lugares a salvo 
se han ocupado se incrementará la velocidad, 
se añadirá una ¡*iextra y los LUGARES A 
SALVO estarán vacios.” 

PÍL PRINT '"AT 18, 9; "Pulse cualquier tecla.: 


AUSE 9 a 
370 CLS : PRINTAT7, 11; "CONTROLES"” 
ue PRINT "4 

<>" 


389 PRINT' FLASH 1 AL 11, 6;"1”; FLASH 4; ” 2 
345678”; FLASH 1;”g” 
399 ENT 'AT 18, 5 "Press any key to PLAY”: 


PAUSE 
400 BRIGHT 1: PAPER 5: BORDER 5: CLS 
419 LET hi=9 
420 PRINT PAPER 4;AT 19, Q;” 


[A 
430 LET lives=9: LET score=0: 
pr home=9 


44 POKE 32425, 201: POKE 32450, 201: 
POKE 32469, 291 


, 459 PRINT AT 9, 0; PAPER 4, "terres 
: PAPER 7;” ”; PAPER 4;" titi» 
'PAPER 7 ER 4: Het» 

: PAPER 7 : 


: PAPER 7;” "¡ PAPE] 
' 455 IF home <>8 THEN GO To 669 
460 PRINT PAPER 4; INK 5;" manes 


470 PRINT" e E PO tua 
O 


480 PRINT IN 75 ta 


499 PRINT INK 2 , yA yA 
300 PRINT INK EEN He me daa 


"519 PRINT INK q abr trad 
RAS A 
524 IN INK,7:" ] E 
530 PRINT ” XL dl dl. 
Pr 
540 PRINT PAPER 4;” a 


559 PRINT, PAPER 0; INK 7;¡AT 11,9;” 


Hua" A 
560 PRINT PAPER 0; INK 3;” de 9 


o mc ! 
5740 PRINT PAPER 9; INK 7".  ---=-=- 


589 PRINT PAPER 9 INK 5" e 
599 PRINT PAPER 6; INK 7;" ===== 


600 PRINT PAPER 9; INK 4;” h 


Pm e ey pra 
619 PRINT PAPER 9; INK 7". ooo 
620 PRINT PAPER 9. INK 67 mm 
699 PRINT Dire. 4, porron 
eee > 


644 PRINT PAPER 4;” 


659 PRINT PAPER 1 INE 7;” SCORE ”:AT 21, 
11;” HOMBRES ” CERAPER 5; ; INK 8; vidas; PAPER 


; :" HISCO! 
5% JET x1=20: LET y1=16: LET x2=x1: LET 


70 PRINT PAPER 8; INK 8; AT x1, y1; 

684 RANDOMIZE USR 32295 

699 IF. SCREENS EOA y2)=" ” THEN GO TO Lia 

700 LET a=x2: =25 TO 35: GO SUB 25 

GO SUB 25: NEXT b 

730 FOR a=x2 TO 28 STEP 2: GO SUB 25: GO 
SUB 25: NEXT a h 

740 LET Nos 1931: PRINT AT 21, 16; lives 

750 LET x2=28 

769 IF lives<>0 THEN GO TO 684 

7740 IF hi>score THEN GO TO 799 

780 LET hi=score: PRINT_AT 21, 27;hi 
790 PRINT FAME ES PAPER 7;AT 12, 0;” 


800 PRINT AT 14, Q;” pd ame? 24 mv 

849 IF INKEYS="n" THEN oo Doa 

859 IF INKEYS$<>"”y” THEN G 

860 PRINT PAPER 5¡AT 21, se sl ¿SO 7 To 415 

888 IF x2<>0 THEN GO TO 19 

890 PRINT PAPER 8; INK 8:AT EA o : PRINT 
AT x2, y2;"k" 
1020 IP SCREENS BSO a+1)="" THEN 

Ion 

910 FOR a=1 TO 8: READ b, c: BEEP b, c: 

NEXT a 


929 ÑATA Eon 4 1, 11, 8, 16, 05, 11, 05, 16, 
25, 11, 95, 16, 1, 20 

930 LET ho A LET 
score=score+59: PRÍNT AT: ST, 7ScO 
54 IF home/4<>INT (home/4) THEN GO TO 


969 IF home=4 THEN POKE 32425, E 
979 IF home=8 THEN POKE 32450, Y 
988 IF home=12 THEN POKE 32469, U 
985 IF_home>36,THEN GO TO 459 
999 LET a=RND"30 
1009 LET a=a+1 
1005 IF a>31 THEN LET a=9 
1019 IF SCREENS (14, a)=”” THEN GO TO1004 
1020 IF SCREENS (10, a+1) ="" THEN GO TO 


1009 
1030 PRINT PAPER 4:AT 19, a; "(W%1» 
1035 a 928: FOR a=1 TO 8: READ b, c: 
BEEP b,c: NEXT a 
1040 jo] TO 459 
1908 PRINT PAPER 8; uns 8 ATx2,y2;"Y" 
1069 LET x1=x2: LET y me 
1079 IF INKEYS<>”1” Y N GOTO 1108 
1089 BEEP .001,33 
1099 LET x2=x2-2: LET score=score+5: PRINT 
AT 21,7;score 


1100 AE VR UNKEYS="0" AND y 
2<>31) EYS= ND y2<>0) 
1119 GO TO 679 


GRAFICOS DEFINIBLES POR EL USUARIO : 


AB = ón 
CDE = Ma 
f =4A 
G =<* 
HI = 
JKL = AU 
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Mo ==“ 
N =+* 

OP = me 
QRS = thalb 
TU = “me 


Programa “Cross basic” 


org 32244 
CAPITULO 19 
PROGRAMA>CROSS> 


[ BASIC ] CODIGO/M 


RODAR LINEA A DERECHA 


DERECHA 

32244 YE 98 ld c,8 
L1 

32246 ES push hl 
32247 11 1F 00 ld de,31 
32259 19 add hl,de 
32251 7E ld a,(hl) 
32252 ED 52 sbc hl,de 
32254 1F rra 
32255 06 20 ld b,32 
L2 

32257 7E ld a,(hl) 
32258 1F rra 
32259 77 ld (hl),a 
32268 23 inc hl 
32261 10 FA dinz L2 
32263 El pop hl 
32264 24 inc h 
32265 4D dec c 
32266 29 FA jr nz,L1 
32268 C9 ret 


RODAR LINEA A IZQUIERDA 


IZQUIERDA 

32269 ZE Y8 ld c,8 

L3 

32271 AF xor a 
32272 ES push hl 
32273 11 1E QU ld de,31 
32276 ED 52 sbc hl,de 
32278 7E Id a,(hl) 
32279 19 add hl,de 
32280 17 rla 

32281 46 29 ld b,32 
L4 

32283 7E Id a,(hl) 
32284 17 rla 

32285 77 ld (hl),a 
32286 2B dec hl 
32287 19 FA dinz L4 
32289 El pop hl 
32290 24 inc h 
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32291 4D 
32292 29 E9 
32294 C9 


RUTINA DE COMIENZO 


HL contiene :- 


Línea de comienzo para RODAR a DERE- 


CHA 


dec c 
jr nz,L3 


ret 


Línea de final para RODAR a IZQUIERDA 


VELOCIDAD Y 


32295 21 5F 49 
32298 CD 4D 7E 
32301 21 84 49 
32394 CD F4 7D 
32307 21 84 49 
32310 CD F4 7D 
32313 21 DF 49 
32316 CD 0D 7E 
32319 21 44 38 
32322 CD F4 7D 
32325 21 04 48 
32328 CD F4 7D 
32331 21 44 48 
32334 CD F4 7D 


Mover SPIDER línea 


ld hl,16479 

call IZQUIERDA 
ld hl,16512 

call DERECHA 
ld hl,16512 

call DERECHA 
ld hl,16607 

call IZQUIERDA 
Id hl,18432 

call DERECHA 
ld hl,18432 

call DERECHA 
Id hl,18432 

call DERECHA 


Utiliza contador de TRAMPAS 


32337 3A 79 5C 
32349 YY 

32341 4g 

32342 Wu 

32343 9u 

32344 YY 

32345 0Y 

32346 09 

32347 E6 42 
32349 28 14 
32351 21 44 48 
32354 CD F4 7D 
32357 21 44 48 
32369 CD F4 7D 
32363 21 48 48 
32366 CD F4 7D 
32369 18 12 

L5 

32371 21 5F 48 
32374 CD 0D 7E 
32377 21 5F 48 


ld a,(23673) 
nop 

nop 

nop 

nop 

nop 

nop 

nop 

and 2 

jrz,L5 

Id hl,18496 
call DERECHA 
Id hl,18496 
call RIGHT 

Id hl,18496 
call DERECHA 
jr L6 


Id hl,18527 
call IZQUIERDA 
ld hl,18527 


323898 CD 8D 7E call IZQUIERDA 32438 21 1F 59 ld hl, 28511 
32383 21 5F 48 ld hi, 18527 32441 CD 0D 7E call IZQUIERDA 
32386 CD 4D 7E call IZQUIERDA 3244 21 5F 59 ld hl,20575 


L6 


32447 CD 0D 7E 


call IZQUIERDA 


32389 21 88 48 ld hi, 18569 32459 C9 ret 
32392 CD F4 7D call DERECHA VELOCIDAD 2 
32395 21 C4 48 Id hl,18624 
32398 CD F4 7D call DERECHA 32451 21 5F 49 ld hl,16479 
32491 21 CU 48 ld hl,18624 32454 CD 0D 7E call IZQUIERDA 
32494 CD F5 7D call DERECHA 32457 21 88 49 ld hl,16512 
32497 21 1F 59 ld hl,2951 1 32469 CD F4 7D call DERECHA 
32414 CD 4D 7E call IZQUIERDA 32463 21 04 48 ld hl,18432 
32413 21 IF 50 ld hl,20511 32466 CD F4 7D call DERECHA 
32416 CD 6D 7E call IZQUIERDA 32469 C9 ret 
32419 21 5F 59 ld hl,20575 
32422 CD 9D 7E call IZQUIERDA VELOCIDAD 3 
32425 C9 ret 
32470 21 5F 48 ld hl,16479 
VELOCIDAD 1 32473 CD 0D 7E call IZQUIERDA 
32476 21 DF 49 ld hl,16607 
32426 21 84 48 ld hl,18569 32479 CD 9D 7E call IZQUIERDA 
32482 21 88 48 ld hl,18569 
32485 CD F4 7D call DERECHA 
32429 CD F4 7D call DERECHA 32488 21 C4 48 ld hl,18624 
32432 21 C4 48 ld hl,18624 32491 CD F4 7D call DERECHA 


32435 CD F4 7D 


call DERECHA 


32494 C9 


Programa “Machine Code for Cross basic” 


Conversión en código máquina 


ret 


LINEA 29 DEL PROGRAMA EN BASIC 


No será necesario convertirla a la versión en código máquina fi- 
nal porque no habrá necesidad de reinicializar RAMTOP para 
proteger el código máquina. 


LINEAS 25 Y 39 DEL PROGRAMA EN BASIC 


Esta es una subrutina utilizada en la rutina HIT y en código 
máquina se colocará con la rutina HIT. La rutina se coloca al 
comienzo del programa en BASIC para reducir el tiempo que 
tarda la Spectum en encontrarla. Cuando se llama a una subru- 
tina, la Spectrum empieza desde el principio del programa en 
BASIC y recorre los números de línea necesarios hasta que se 
localiza la rutina requerida. Puede ver que si tuviese un nú- 
mero de línea alto llevaría más tiempo encontrarla, por lo que 
se incrementaría el tiempo empleado para ejecutar las líneas 
desde la 700 hasta la 730, que llaman a esta rutina 22 veces por 
lo menos. 
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LINEA 49 DEL PROGRAMA EN BASIC 


En BASIC la Spectrum tarda varios segundos en cargar con 
LOAD el código máquina y establecer los UDGs, por lo que se 
visualiza este mensaje durante ese período. Sin embargo, en có- 
digo máquina esto es instantáneo, y el mensaje es por lo tanto 
innecesario. 


LINEAS 59 A 149 DEL PROGRAMA EN BASIC 


Esta es la rutina para ingresar, con POKE, el código máquina 
de la “RUTINA ROLL” en las direcciones de memoria desde 
32244 a 32499, y tampoco se necesitará en código máquina, ya 
que estará localizada correctamente con el resto del programa 
en código máquina. 


LINEAS 159 A 270 DEL PROGRAMA EN BASIC PARA ESTABLECER 
UDGS 


Esta es la primera rutina que necesitaremos convertir. Por 
supuesto podríamos utilizar SAVE “UDG” CODE USR “a”, 
168: LOAD “UDG” CODE USR “a” 168, pero ello supondría te- 
ner que guardar y cargar dos grupos de rutinas en código má- 
quina, que son el juego principal y los UDGs. Al objeto de que 
pueda amoldarse fácilmente a la Spectrum de 16K empezaremos 
el programa en código máquina en la dirección 5DC1 h(24001d). 
Como en el BASIC, pondremos cada byte de UDGs en forma 
de DATA y leeremos estos DATA transfiriendo cada número a 
su lugar adecuado en el área UDG de la memoria. Como verá, 
el método más simple es utilizar la instrucción LDIR. El par de 
registros DE se carga con la dirección de comienzo de UDG se- 
gún lo que contenga la variable 5C7Bh(23675d) del sistema, y el 
par de registros HL contienen la dirección de comienzo de 
DATA. La rutina DATA = 5DCIh a 5E68h y la rutina en có- 
digo máquina = 5E69h(24169 d) a 5E73h(241800). 

Observe que se llama a la rutina mediante RANDOMIZE 
USR 24169 y no con USR 24001 que es el comienzo de DATA. 


LINEA 2896 DEL PROGRAMA EN BASIC 


Esta es una simple sentencia de impresión y es fácil de conver- 
tir en código máquina utilizando la rutina para imprimir con 
DATA de la ROM (203Ch — 8252d) que ya se estudió en el Ca- 
pítulo 1. Así, DATA = 5E77h (24183d) a 5EA1h (2422 5d). Se 
salta a ella mediante la instrucción “JR 5EA2h” desde la direc- 
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ción de memoria 5£75/6h. La rutina para imprimir con DATA 
= 5EA2h(24226d) a 5EAFh. 


LINEA 299 Y 295 DEL PROGRAMA EN BASIC CODIGO MAQUINA DESDE 
5EB0 A SEBE 


En esta rutina esperamos hasta que se produce una nueva pul- 
sación de tecla y se examina la tecla para ver si es “y” (la orden 
HALT no es absolutamente necesaria). Si la tecla pulsada no es 
“y”, entonces pasamos por alto la instrucción saltando (con NZ) 
a 698Ah(24714d). 


LINEA 300 : 1 CLS DEL PROGRAMA EN BASIC CODIGO MAQUINA 
DESDE 5EBF a 5EC6 


Esta rutina es sencilla y se habló de ella en el Capítulo 1. 


LINEAS 308:2 A 338 DEL PROGRAMA EN BASIC 


De nuevo se lleva a cabo esto utilizando las rutinas de almace- 
namiento de DATA y las de impresión de series con PRINT. El 
primer grupo de DATA se guarda en 5ECA hasta 5F72 con la 
rutina PRINT DATA en 5F73 hasta 5F83. El segundo grupo 
de DATA se guarda desde 5F'84 hasta 5FF9 y la rutina PRINT 
DATA desde 5FFA hasta 6892. Los DATA podrían haberse 
agrupado con una sola rutina PRINT DATA. 

La rutina PAUSE Y va desde 6043 hasta 608C; observe que 
el bit 5 (IY + 1) tiene que ponerse a cero desde la rutina 
PAUSE 4 previa. Intente sacar RES 5 (IY + 1) y “vea” el re- 
sultado. 


LINEA 370: 1 CLS DEL PROGRAMA EN BASIC RUTINA DESDE 600E A 
6812 


Utiliza los métodos alternativos para borrar la pantalla com- 
pleta ingresando ceros con POKE en todas las direcciones de la 
pantalla (sin afectar a los ATTRIBUTES). 


LINEAS 370: 2 CLS HASTA 39% DEL PROGRAMA EN BASIC 


DATA para rutina de impresión = 6816 a 6975 
Rutina para imprimir datos con PRINT = 6976 a 697E. 
A continuación viene de nuevo la rutina PAUSE 9. 
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LINEA 4006 DEL PROGRAMA EN BASIC 


Utilizando la rutina de establecimiento del color de BORDER y 
de establecimiento de atributos de color permanentes como en 
el Capítulo 1, podemos convertir esta línea en la rutina que va 
desde 688A a 689D. 

La llamada CLS pone los colores en la pantalla como en el BA- 
SIC. 


LINEA 419 DEL PROGRAMA EN BASIC 


Esta línea establece el valor inicial de la puntuación alta. 
Supondremos que el valor no será mayor que 65535 y como tal 
utiliza los dos primeros bytes de la memoria intermedia de la 
impresora para guardar su valor (direcciones 5B9081-23296/7). 
Se puede poner a cero fácilmente con LD HL,009040h y LD 
(5B00), HL como se muestra en la rutina de 699C a 69A1. 


LINEA 429 DEL PROGRAMA EN BASIC 


DATA para impresión = 68A4 a 68C8. 
Rutina para imprimir DATA con PRINT = 68C9 a 69D6 


LINEA 438 DEL PROGRAMA EN BASIC 


Inicializa los valores de “vidas”, “puntuación” y “lugares a 
salvo”. Las vidas pueden contarse con un byte, la puntuación 
con dos bytes, y los lugares a salvo con un byte. Emplearemos 
de nuevo la memoria intermedia de la impresora para almace- 
nar esos valores. La dirección 5B82 contiene “vidas”, las 5B93/4 
contienen la “puntuación”, y la 5B05 contiene “lugares a salvo”. 
Estos valores iniciales se almacenan utilizando la rutina de 
68D7 a 69E5. 


LINEA 449 DEL PROGRAMA EN BASIC 


Esta línea reinicializa a cero la velocidad colocando las instruc- 
ciones RET en los lugares correctos en la subrutina LINE 
ROLL. Rutina: 60E6 a 60FY. 


LINEA 4598 DEL PROGRAMA EN BASIC 


DATA para impresión = 69F4 a 6128. 
Rutina para imprimir DATA con PRINT = 6129 a 6136. 
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LINEA 455 DEL PROGRAMA EN BASIC 


Se hace una prueba para ver si los lugares a salvo < > 8; es 
decir, si la visualización de pantalla tiene que imprimirse o de- 
jarse como está, borrando solamente los lugares a salvo. Nece- 
sitamos ir a por el valor almacenado en “lugares a salvo” 5B05 
y comprobar que no es cero utilizando “AND A”. Si esto no 
pone a uno la bandera de cero, entonces saltamos a la rutina 
de visualización PRINT. Si la bandera de cero se pone a uno, 
omitimos la rutina de visualización PRINT y saltamos al 
juego en sí. 

Rutina: 6137 a 6149. 


LINEAS 469 A 649 DEL PROGRAMA EN BASIC 


Esta es la rutina más larga del programa, y sólo demuestra 
realmente lo tendioso que es imprimir una visualización. 

DATA para impresión de 6141 a 63D1 

Rutina para PRINT DATA 63D2 a 63DF 


LINEA 659 DEL PROGRAMA EN BASIC 


Se dará cuenta de que esta rutina PRINT contiene la variable 
“vidas” de modo que antes de que pueda usar la rutina de im- 
primir datos con PRINT, el valor correcto de “vidas” debe colo- 
carse en DATA para imprimirse. Esto se logra utilizando la ru- 
tina de 63E9 a 63E9 que sólo recoge el valor “vidas” desde 
5B92, le suma después 30h (48d) para convertirlo al valor 
ASCII correcto y finalmente lo guarda en DATA con la instruc- 
ción POKE, en la dirección 6481. 

DATA para imprimir 63EA a 649F 

Rutina para PRINT DATA 6419 a 641D 


LINEA 6606 DEL PROGRAMA EN BASIC 


Esta línea establece los valores iniciales de la posición x1, y1 de 
impresión del hombre en la pantalla, y la posición “nueva” 
usada en la rutina SCREEN$ x2, y2. De nuevo utilizaremos la 
memoria intermedia de la impresora para guardar estos va- 
lores. 


x1 = 5B06 
y1 = 5B97 
x2 = 5B98 
y2 = 5B09 
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Esto se realiza fácilmente en código máquina mediante LD 
HL, 1914h:LD(5B96), HL : LD(5B98),HL. Por lo anterior obser- 
vará que usar números hexadecimales es mucho más fácil que 
usar los decimales. Está bastante claro que con LD HL, 1914h 
contendrá 10h (16d) y L contendrá 14 (20d). Rutina de 641É a 
6426. 


LINEA 67% DEL PROGRAMA EN BASIC 


Puesto que vamos imprimiendo un carácter cuya posición 
depende de las variables x1, yl, es mucho más fácil utilizar 
LD A,jn : RST 10h que una rutina PRINT DATA. Rutina de 
6427 a 6445. 


LINEA 6896 DEL PROGRAMA EN BASIC 


Rutina de 6446 a 6448. Dejaremos la rutina ROLL en la direc- 
ción 7E27 (32295). 


LINEA 69% DEL PROGRAMA EN BASIC 


Utilizaremos la rutina descrita en el Capítulo 8 para encontrar 
SCREENS (x2, y2), después desapilaremos el “valor” en los re- 
gistros A,B,C,D,E. El carácter puede encontrarse entonces 
mediante LD A,(DE) y compararse con 20h (32). Recuerde que 
debemos borrar el espacio de trabajo antes de continuar con el 
programa. Rutina de 6449 a 645D. Si el carácter no es un espa- 
cio, saltamos a la rutina HIT que empieza en la dirección 6548h. 
El lazo principal del BASIC salta a la línea 888. 


LINEA 880 DEL PROGRAMA EN BASIC 


Aquí comprobamos que el hombre no está en la línea superior 
de la pantalla, es decir, en “lugar a salvo”. En código máquina 
obtenemos el valor x2 mediante LD A(5B98) y lo comparamos 
con cero. Si es cero, saltamos a la rutina de lugar seguro en la 
dirección 66A6. Rutina 645E a 6465. El lazo principal del BA- 
SIC salta a la línea 1959. 


LINEA 1059 DEL PROGRAMA EN BASIC 


Como estamos imprimiendo un carácter usando dos variables 
x2, y2, utilizaremos LD A,n: RST 10h (como en la línea 670). 
Rutina de 6466 a 6484. 
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LINEA 1969 DEL PROGRAMA EN BASIC 


Se trata de recoger el valor almacenado en 5B98/9 y colocarlo 
en 5B06/7. Rutina de 6485 a 648A. 


LINEA 1979 DEL PROGRAMA EN BASIC 


Ahora cambiaremos el BASIC para mejorar el juego. En vez de 
utilizar la variable LAST KEY para leer el teclado, lo leeremos 
directamente empleando la orden IN A,(C) y así se podrán leer 
todas las teclas y se podrán hacer movimientos diagonales. 

Para leer la tecla “1” necesitamos leer media fila de l a 5 y, 
como se describió en el Capítulo 5, la rutina que se requiere es 
648B a 6493. 


LINEA 1989 DEL PROGRAMA EN BASIC 


Puesto que no es importante la duración y el tono del BEEP, 
no necesitamos convertirla exactamente al código máquina. Po- 
demos usar la rutina BEEP, call 43B5(949d), en vez de utilizar 
la calculadora. Rutina de 6494 a 6496. 


LINEA 199% DEL PROGRAMA EN BASIC 


Aquí actualizamos la posición de línea (x2) del hombre, de modo 
que recogemos el valor de 5B488, lo decrementamos dos veces, y 
volvemos a poner el nuevo valor en 5B98. Se incrementa la 
puntuación recogiendo el valor de 5B03/4, sumándole cinco y 
poniendo otra vez el resultado en 5B03/4. Rutina de 649D a 
64AF. Para imprimir la puntuación utilizaremos las rutinas 
STACK BC y PRINT VALUE ON STACK, pero primero 
definiremos los parámetros de “PRINT AT”, Rutina de 
64B1 a 64C8. 


LINEA 1106 DEL PROGRAMA EN BASIC 


De nuevo, utilizando la instrucción IN A,(C) podemos leer el te- 
clado, y actualizar el valor de y2(5B89). Rutina de 64C9 a 64F'1. 
He añadido una rutina para examinar si se pulsa la tecla “6” 
para obtener la posibilidad de volver al BASIC en este punto. 
(Esto es necesario para guardar con SAVE el programa una 
vez que funcione correctamente). Rutina de 64F2 a 64F4. 

Esto completa el lazo principal, pero encontrará que, si se 
ejecuta este programa, será tan rápido que hará casi invisible al 
hombre y parpadeará entre dos rodamientos de pantalla. Por 
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ello necesitamos un lazo de retardo para mantener quieto el 
hombre durante un momento, según se sugirió en el Capítulo 6. 
En vez de nuestro lazo normal podemos añadir un efecto de so- 
nido de ruido de tráfico mediante la rutina de 64F5 a 659B. El 
JP 6427 final nos hará regresar al comienzo del lazo principal 
(línea 679). 


Rutina de choque 


LINEA 709 DEL PROGRAMA EN BASIC 


Aquí presentamos otra variable a = x2. Utilizaremos la direc- 
ción 5CB9 para guardar este valor (una dirección poco usada en 
las variables del sistema). La variable “b” del lazo FOR/NEXT 
puede reemplazarse por LD B,19h (25d). Este valor se coloca 
después en la dirección 5CB1 para utilizarse en la rutina si- 
guiente. Rutina 6548 a 6561. La llamada GOSUB 25 se reem- 
plaza por 659F. 


LINEA 25 DEL PROGRAMA EN BASIC 


Esta se puede convertir fácilmente usando la calculadora para 
apilar .01.b —a simplemente con LD HL,(5CB9) : LDA,H : 
SUBL; los valores a y b se almacenan consecutivamente en 
5CB9/B1. Después usamos el valor almacenado en “A” con la 
rutina 2D28 y la rutina BEEP 03F8. Rutina de 659F a 6521. 


LINEA 39 DEL PROGRAMA EN BASIC 


Este es otro caso en el que usa LD A,n : RST 19h ya que hay 
dos variables en la rutina PRINT. Rutina de 6522 a 6547. 


LINEA 7309 DEL PROGRAMA EN BASIC 


La variable a está ya almacenada en 5CB9, por lo tanto po- 
demos establecer un lazo tomando este valor, e incrementarlo 
en dos después de cada paso hasta que el valor sea 14h(20d). 
Rutina de 6562 a 6573. 


LINEA 749 DEL PROGRAMA EN BASIC 


Aquí obtenemos el valor de “vidas” de la dirección 5B402, lo re- 
ducimos en uno, y volvemos a ingresar de nuevo el valor en 
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5B92. Para imprimir este valor establecemos los parámetros de 
PRINT AT, obtenemos después el valor, sumamos 30h(48d) 
para convertirlo al código ASCII, y lo imprimimos. Rutina de 
6574 a 658É. 


LINEA 759 DEL PROGRAMA EN BASIC 


Rutina de 658F a 6593. Lleva consigo la reinicialización del va- 
lor x2(5B88) a 14h(20d). 


LINEA 7609 DEL PROGRAMA EN BASIC 


Rutina de 6594 a 659A. Esta es bastante sencilla. Si “vidas” no 
es igual a cero, saltamos a 6446, es decir, regresamos al lazo 
principal. 


Rutina de fin de juego 


Reúne la obtención del valor de alta puntuación y puntuación y 
comprueba cuál es el mayor. Se hace fácilmente utilizando SBC 
HL, DE y examinando después el estado de la bandera CA- 
RRY (acarreo). Rutina de 659B a 6546. Si la puntuación alta es 
mayor que la puntuación, saltamos a 6611. 


LINEA 7898 DEL PROGRAMA EN BASIC 


Transfiere la puntuación en 5B93/4 a la alta puntuación en 
5B9/91. Rutina de 6547 a 65AC. Para imprimir la puntuación 
alta utilizamos las rutinas STACK VALUE IN BC y PRINT 
TOP VALUE ON CALCULATOR STACK habiendo estable- 
cido primero los parámetros PRINT AT. Rutina de 65AD 
a 66C2. 


LINEAS 798 A 808 DEL PROGRAMA EN BASIC 


DATA para imprimir =65C5 a 6610. 
Rutina PRINT DATA = 6611 a 6619. 


LINEA 848 A 858 DEL PROGRAMA EN BASIC 


Aquí usamos la variable LAST KEY para esperar una pulsa- 
ción de tecla y entrar en acción de acuerdo con esto. Rutina de 
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661A a 6632. Si la tecla pulsada no es “y” (79h) o “n” (6Eh) sal- 
tamos de nuevo al lazo WAIT. 


LINEA 868 DEL PROGRAMA EN BASIC 


Esta se lleva a cabo usando LD A,n : RST 10h seguida de JP 
68C9 para volver al lazo principal reimprimiéndole la visualiza- 
ción, pero dejando inalterada la “puntuación alta”. Rutina de 
6633 a 6655. 


Rutina de lugar a salvo 


LINEA 89% DEL PROGRAMA EN BASIC 


Aquí usamos la rutina POINT DATA pero primero ponemos en 
DATA los valores requeridos de x1, yl y x2, y2. 

DATA para PRINT de 669A a 66A5 

SET valor de x1, y1, x2, y2 de 66A6 a 66B1 

Rutina PRINT DATA de 66B2 a 66BF 


LINEA 9% DEL PROGRAMA EN BASIC 


Esta por supuesta es innecesaria en código máquina, ya que el 
comienzo de DATA no necesita reinicializarse. 


LINEAS 919 A 929 DEL PROGRAMA EN BASIC 


FANFARE BEEYP call 6664 
Se trató detalladamente esta rutina en el Capítulo 7 y por ello 
no necesita más comentarios. Rutina de 66C8 a 66C2. 


LINEAS 939 DEL PROGRAMA EN BASIC 


Otro grupo de rutinas para recoger los valores actuales de “lu- 
gares a salvo” y “puntuación” y actualizarlos; viene seguida por 
una rutina para imprimir la puntuación utilizando las rutinas 
STACT VALUE IN BC y PRINT TOP VALUE ON STACK. 
Rutina de actualización de 66C3 a 66D3. Rutina de impresión 
de puntuación de 66D4 a 66E09. 


LINEA 959 DEL PROGRAMA EN BASIC 


Esto es una prueba para ver si los cuatro lugares seguros están 
ocupados, y es más fácil de programar en código máquina que 
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en BASIC. Rutina de 66ÉA a 66F1. Puede ver que primero ha- 
cemos LD A,(5B95) es decir, contamos los “lugares a salvo” y 
enmascaramos entonces el valor con AND 43h. Si nos queda 
una respuesta distinta de cero, S2 el valor original de “lugares 
a salvo”, no era múltiplo de cuatro. Si el resultado es distinto 
de cero volvemos a saltar el lazo principal con JP 641E. 


LINEA 96£ A 989 DEL PROGRAMA EN BASIC 


Estas rutinas se utilizan para incrementar la velocidad del 
juego cuando “lugares a salvo” = 4,8 y 12. Esto se hace qui- 
tando las instrucciones RETURN en la subrutina ROLL, 
permitiendo que ciertas líneas sean cambiadas por un pixel 
extra: línea 969 = 66F2 a 66F'F, línea 978 = 6708 a 6789, y línea 
980 = 678A a 6712. 


LINEA 985 DEL PROGRAMA EN BASIC 

Ahora comprobamos que “lugares a salvo” no es mayor que 36. 
Si es así, entonces se pierde la rutina “ADD EXTRA SPIDER” 
(“añadir una araña extra”) y volvemos al lazo principal. Res- 
tamos simplemente 37 del valor de “lugares a salvo” y si la ban- 
dera CARRY (acarreo) no está a uno (es decir lugares a salvo 
= 37), entonces hacemos JP NC, 6129. Rutina de 6714 a 6718. 


LINEA 99) DEL PROGRAMA EN BASIC 


Esta rutina fue tratada en el Capítulo 4 y no necesita más 
explicación, excepto anotar que en este caso utilizamos el 
valor SEED modificado en BC, y enmascaramos 1Fh (31d) : LD 
A,C : AND 1Fh; después le restamos dos y examinamos si se 
pone a uno la bandera de acarreo. Este método fue elegido 
porque no era necesario un verdadero número aleatorio. Rutina 
de 6719 a 6740. 


LINEA 100% DEL PROGRAMA EN BASIC 
Rutina 6741. 
Todo lo que se necesita es incrementar el valor de “a”. 


LINEA 1405 DEL PROGRAMA EN BASIC 


Se hace una prueba para ver si el valor de “a” no es mayor que 
31, es decir, fuera de la pantalla (18,a) se ha borrado utilizando 
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la rutina SCREENS$. Esto supone colocar el valor “a” en el re- 

istro B y 0ah (10d) en el registro C, llamando a las rutinas 
STACK VALUE IN BC Y SCREENS, cambiando después los 
parámetros de la pila a los registros A,B,C,D,E y comprobando 
finalmente que SCREEN$ (16,a) = 20h(32d). Si todo es satis- 
factorio, entonces obtenemos el valor final de “a” (POP AF), y 
se continúa. Si la rutina SCREENS$ indica que la posición no 
está borrada, entonces hacemos JR 6741 y así pasamos a la si- 
guiente posición de pantalla. Rutina de 6747 a 675É. 


LINEA 19286 DEL PROGRAMA EN BASIC 


Es una repetición de la rutina anterior excepto en que el valor 
de “a” se incrementa antes de la rutina SCREENS. Rutina de 
675F a 6776. Observe que el valor de “a” se guarda antes de ac- 
ceder a la rutina SCREENS$ (6760 PUSH AF) para usarse en la 
rutina siguiente. 


LINEA 1939 DEL PROGRAMA EN BASIC 


Se vuelve a sacar, con POP, el valor de a, se coloca en AF' y se 
decrementa. Este se coloca después en PRINT DATA, y se 
llama a la rutina PRINT. Rutina de 6777 a 6792. 


LINEA 1635 DEL PROGRAMA EN BASIC 


Esta es una repetición de la FANFARE BEEP y sólo requiere 
CALL 6664. Rutina de 6793 a 6795. 


LINEA 1049 DEL PROGRAMA EN BASIC 


Finalmente volvemos a saltar al lazo principal utilizando 
JP 6129. Rutina de 6796 a 6798. 

De lo anterior puede comprobar que es realmente muy senci- 
llo convertir un programa en BASIC a código máquina si lo si- 
gue paso a paso y planea su programa con el código máquina en 
mente. 

Un último punto, que sin duda habrá observado, es que es 
mejor trabajar en hexadecimal que en decimal puesto que por 
ejemplo, muchas de las rutinas requieren que se cargue BC con 
los parámetros línea/columna. Eche otro vistazo a la subrutina 
LEFT/RIGHT ROLL. Las direcciones de pantalla en decimal 
dicen muy poco, no tienen modelo aparente, pero si observa sus 
equivalentes en decimal verá algún tipo de modelo, obtenién- 
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dose una indicación más clara de lo que realmente está suce- 


diendo. 


Todo lo que se necesita ahora es que usted invente su propio 
programa original y brillante y empieze a convertirlo al código 
máquina. Le deseo buena suerte y espero que disfrute de mu- 
chas horas agradables programando sin que se le descontrolen 


demasiados programas. 
org 42000 24001 


5DC1h 

defb $o0f $12 $22 $7f Sff $ff $28 
detfb $10 

defb $80 $40 $20 Ste bfe Sff $28 
defb $10 

defb $57f $71 $71 57f Sf Sff $15 

defb $08 

defb $ff $fe Sfe Ste $ff Sff $40 

defb $80 

detfb $00 $f8 $c4 $c4 Ste Sfe $28 
defb $10 

defb $18 $18 $24 $7e $3c $5a $a5 
defb $42 

defb $38 $28 $92 $72 $38 $38 $28 
defb $6c 

defb $01 $02 $4 $71 $7f $ff $14 
defb $08 

defb $f0 $48 $44 S$fe $ff $ff $14 


defb $48 

defb $09 $1f $23 $23 $57f 57f $14 
defb $08 

defb $7f $71 57f 57f $ff SA $02 
defb $01 

defb $fe Sfe $íe Sfe Sfe Sff $a8 
defb $18 

defb $10 $29 $c7 $00 $26 $00 $00 
defb $0Y 

defb $09 $44 Stf $44 $44 Sif $44 


defb $09 

defb $84 $22 $55 $8f $97 $a3 $ag 
defb $98 

defb $44 $44 Saa SH $e9 $c5 $U5 
defb $509 

defb $19 $10 $19 Ste $3f $11 SOf 
defb $97 

defb 5098 $00 $00 $00 S1e Sff Sff 
defb $if 

defb $60 $7c $54 $78 $7f $ff Ste 
defb $7c 


defb $94 $09 $03 $02 SOf S3f Sf 
defb $594 
defb $06 $Bc $98 SV Seg $55 Sí 
defb $98 


5E69h 
24169 ED 58B 7B 5C ld de,($5c7b) 


24173 21 C1 5D 
24176 01 AB MU 
24179 ED B4 
24181 18 2B 


5E77h 


ld hl,$5dct 
Id bc,$28a8 
Idir 

jr +$2b 


defb $16 $0b $03 544 S6f $20 $79 


detb $6f 


defb $75 $524 $77 $61 $6e $74 $20 


defb $69 


defb $6e $73 $74 $72 $75 $63 $74 


defb $69 


defb $6f $6e $73 $3f $16 $0d S0b 


defb $28 


defb $79 $29 $65 $73 $16 $0f 50b 


defb $2B 
defb $6e $29 $61 


SEA2h 

24226 3E 92 
24228 CD M1 16 
24231 11 77 5E 
24234 Y1 2B YY 
24237 CD 3C 28 
24240 76 

24241 FD CB Y1 6E 
24245 28 F9 
24247 3A Y8 5C 
24250 FE 79 


24252 C2 8A 69 


SEBFh 

24255 3E 02 
24247 CD 91 16 
24260 CD 6B 0D 
24263 C3 73 5F 


5ECA 


ld a,$02 

call $1601 

ld de,$5e77 
la bc,$082b 
call $203c 
hal t 

bit 5,(iy+$01) 
jr z,-507 

ld a,($5c08) 
cp $79 


jp nz,$608a 


ld a, $02 
call $1601 
call $0d6b 
jp $5f73 


defb $16 $00 $0b $4f $42 $4a $45 


defb $43 


defb $54 $0d $0d $54 $6f $20 $67 


defb $75 


deb $69 $64 $65 $20 $61 $29 $96 


defb $20 


defb $61 $63 $72 $6f $73 $73 $20 


defb $561 
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defb $20 $72 $6f $61 $64 $20 $61 

defb $6e 

defb $64 $20 $61 $72 $69 $76 $65 
defb $72 

defb $2c $61 $76 $6f $69 $64 $69 

defb $6e 

defb $67 $20 599 $91 $20 $92 $93 
defb $594 

defb $20 $95 $20 $ag Sal Sal $a2 
defb $29 

defb $a3 $a4 50d SU $41 $20 $9e 
defb $of 

defb $20 $70 $61 $74 $72 $6f $6c 

defb $73 

defb $20 $74 $68 $65 $20 $63 $65 
defb $6e 

defb $74 $72 $61 $6c $20 $69 $573 
defb $6c 

defb $61 $6e $64 $2e $4d $Bd $54 
detb $68 

defb $65 $72 $65 $24 $61 $72 $65 


defb $20 

defb $34 $20 $48 $4f $4d $45 $53 

defb $20 

defb $74 $6f $20 $62 $65 $20 $66 

defb $69 

defb $6c $6c $65 $64 $2e $20 $69 
defb $2e 

defb $65 $2e $20 $67 $61 $70 $73 
defb $209 

defb $69 $6e $24 $66 $65 $6e $63 
defb $65 

defb $24 $9d $9d $9d $20 $9d $9d 
defb $9d $8d 


5F73h 

24435 3E 02 Id a, $02 
24437 CD 41 16 call $1691 
24449 11 CA 5E ld de,$5eca 
24443 01 A9 UU ld bc,$0Yag 
24446 CD 3C 28 call $203c 
24449 C3 FA 5F jp $5fta 


5F84h 

defb $4d $4f $6e $63 $65 $20 $61 

defb $6c 

defb $6c $20 $34 $20 $48 $4f $4d 

defb $45 

defb $53 $20 $61 $72 $65 $20 $66 
defb $69 

defb $6c $6c $65 $64 $20 $74 $68 
defb $65 

defb $20 $73 $70 $65 $65 $64 $29 
defb $77 

defb $69 $6c $6c $24 $69 S6e $63 
defb $72 

defb $65 $61 $73 $65 $2c $24 $61 
defb $6e 

defb $20 $65 $78 $74 $72 $61 $20 
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defb $65 

defb $20 $61 $64 $64 $65 $564 $20 
defb $61 

defb $6e $64 $20 $74 $68 $65 $20 
defb $48 

defb $4f $4d $45 $53 $29 $77 $69 
defb $6c 

defb $6c $65 $6d 570 $74 $79 $16 
defb $12 

defb $09 $50 $72 $65 $73 $73 $20 
defb $61 

defb $6e $79 $20 $6b $65 $79 


SFFARh 

24574 11 84 5F ld de,$5184 
24573 91 76 VU Id bc,$0076 
24576 CD 3C 29 call $203c 
24579 FD CB 91 AE res 5, (iy+91 
24583 76 halt 


24584 FD CB 91 6E bit 5,(iy+501 


24588 28 F9 jr z, 507 
60gEh 

24598 06 18 ld b,$18 
24592 CD 44 YE call $0e44 
24595 C3 76 68 jp $6076 
6u16h 


defb $16 $07 $Ub $43 S4f $4e $54 
defb $52 
defb $4f $4c $53 $0d $Ud $20 $20 
defb $29 
defb $24 $20 $29 $5e $29 $20 $29 


defb $20 
defb $20 $20 $20 $20 $20 $20 $20 
defb $20 


defb $20 $20 $20 $3c $30 $3e $12 
defb $91 

defb $16 $0b $06 $31 $12 $00 $20 
defb $32 

defb $24 $33 $20 $34 $20 $35 $20 
defb $36 

defb $24 $37 $20 $38 $30 $12 $01 
defb $39 

defb $12 $00 $20 $12 $01 $38 $12 
defb $00 

defb $16 $12 $05 $50 $72 $65 $73 
deib $73 

defb $20 $61 $6e $79 $20 $6b $65 
defb $79 

defb $20 $574 $6f $20 $58 $4c $41 
defb $59 


6876h 


24694 11 16 69 ld de, 56016 
24697 Y1 69 YY ld bc,$4060 
247049 CD 3C 28 call $203c 


24703 FD CB 91 AE res 5, (iy+$501 


24707 76 hal t 

24708 FD CB 91 6E bit 5.(iy+$01 
24712 28 F9 jr z,-$07 
Sg8Ah 

24714 3E 05 Id a,$05 
24716 CD 9B 22 call $229b 
24719 3E 68 Id a,$68 
24721 32 8D 50 ld ($5c8d),a 
24724 3E 92 Id a, $82 
24726 CD M1 16 call $1681 
24729 CD 6B 0D call $8d6b 
6g9Ch 

24732 21 00 UU Id hl,$0099 
24735 22 04 5B ld ($5b40),hl 
24738 18 25 jr +$25 
5BA4h 


defb $11 $04 $16 $0a $0Y $20 $20 
defb $20 
defb $24 $20 $20 $29 $20 $20 $29 
defb $28 
defb $20 $20 $20 $20 $9e S9f $20 
defb $29 


defb $20 $20 $20 $20 $20 $20 $20 
defb $20 
defb $20 $20 $20 $20 $20 


64Ccon 

24777 3E 42 ld a, $82 
24779 CD 41 16 call $1601 
24782 11 A4 68 ld de,$60a4 
24785 Y1 25 00 ld bc,$4025 
24788 CD 3C 28 call $203c 
64D7h 

24791 3E 09 ld a, $29 
24793 32 42 5B ld ($5b82),a 
24796 21 00 09 ld hl,50099 
24799 22 03 5B ld ($5bM3), hl 


24802 AF xor a 
24803 32 05 5B Id ($5b05),a 


6gE6h 

24806 3E C9 Id a,$c9 
24808 32 A9 7E ld ($7ea9),a 
24811 32 C2 7E Id ($7ec2),a 
24812 32 D5 7E ld ($7ed5),a 
24817 C3 29 61 jp $6129 
6gF4h 

defb $16 $09 500 $11 $04 $9d S$9d 
defb $9d 


defb $9d $11 $07 $20 $11 $04 $9d 
defb $9d 

defb $9d $9d $9d $9d $11 $07 $29 
defb $11 

defb $04 $9d $9d $9d $9d $9d $9d 
defb $9d 

defb $11 $07 $20 $11 $04 $9d $9d 
defb $9d 

defb $9d $9d $9d $9d $11 $07 $29 
defb $11 

defb $84 $9d $9d $9d $9d 


6129h 

24873 3E 02 Id a,$02 
24875 CD 41 16 call $1691 
24878 11 F4 60 Id de, $60f4 
24881 01 35 00 ld bc,$0035 
24884 CD 3C 29 call $203c 
6137h 

24887 3A 05 5B ld a,($5b95) 
24890 A7 and a 
24891 C2 1E 64 jp nz,5641 e 
24894 C3 D2 63 jp $63d2 


6141h 

defb $11 $04 $10 $05 $8c $8c $8c 
defb $8c 

defb $8c $8c $8c $8c $8c $8c $8c 
defb $8c 

defb $8c $8c $8c $8c $8c $8c $8c 
defb $8c 

defb $8c $8c $8c $8c $8c $8c $8c 
defb $8c 

defb $8c $8c $8c $8c $11 $05 $10 
defb $04 

defb $24 $ad Sal Sal $a2 $520 $20 
defb $24 

defb $aW Sal Sail Sal Sa2 520 $20 
defb $29 

defb $20 $ad Sal Sal $a2 $20 $20 
defb $20 

defb $ag Sal Sal S$a2 $20 $20 $20 
defb $20 

defb $10 $07 $20 $20 524 $9c $9c 
defb $9c 

defb $20 $20 $20 $20 $20 $9c $9c 
defb $9c 

defb $9c $9c $20 $24 $20 $20 $20 
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defb $9c 
defb $9c $9c $20 $20 $20 $20 $20 
defb $29 
defb $9c $10 $02 $20 $20 $a3 $a4 
defb $29 
defb $20 $20 $20 $20 $a3 $a4 $520 
defb $20 
defb $20 $20 $20 $a3 $a4 $20 $20 
defb $24 
defb $24 $a3 $a4 $20 $20 $20 $20 


defb $28 
defb $20 $a3 $a4 $20 $10 $07 $9c 
defb $9c 
defb $24 $20 $20 $9c $20 $20 $20 
defb $29 
defb $24 $20 $9c $9c $9c $9c $9c 
defb $29 


defb $20 $20 $20 $20 $20 $20 $20 
defb $9c 
defb $9c $9c $20 $20 $20 $20 $10 
defb $91 


defb $a1 $a2 $20 $20 $20 $20 $20 
defb $ag 
defb $a1 $a1 $a2 $20 $20 $20 $20 
defb $28 
defb $20 $ad Sal Sal Sal Sal $a2 
defb $20 
defb $20 $20 $20 $20 $ag Sal Sal 


defb $a1 

defb pd $07 $20 $20 $20 $9c $9c 

defb $29 

defb $24 $9c $9c $9c $9c $9c $20 

defb $29 

defb $29 $9c $9c $20 $20 $20 $20 

defb $20 

defb $20 $9c $9c $9c $20 $20 $20 

defb $29 

defb $20 $20 $10 $00 $a4 $20 $20 

defb $20 

defb $20 $20 $20 $20 $20 $20 $a3 

defb $a4 

defb $20 $20 $20 $20 520 $a3 Sad 

defb $20 

defb 50 $20 $20 $20 $20 $a3 $a4 

defb 

defb 04 $24 $20 $a3 $11 $04 $9d 

defb $9d 

20 $07 $9d $9d $9d $9d $9d $9d 
efb 

defb $9d $9d $9d $9d $9d $9d $9d 

defb $9d 

defb $9d $9d $9d $9d $9d $9d $9d 

defb $9d 

defb $9d $9d $9d $9d $9d $9d $11 

defb $04 

defb $10 $07 $16 $0d $00 $9d $9d 

defb $9d 

defb $9d $9d $9d $9d $9d $9d $9d 

defb $9d 

defb $9d $9d $9d $9d $9d $9d $9d 

defb $9d 

defb $9d $9d $9d $9d $9d $9d $9d 

defb $9d 


defb ES $9d $9d $9d $9d 514 $03 
defb $29 
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bo EEN $91 $20 $95 $20 $20 $99 

e 

así 320 $20 $92 $93 $92 $93 $94 
efb 

defb $95 $24 $95 $20 $20 $20 $92 

defb $93 

defb $94 $24 $20 $20 $20 $24 $20 

defb $18 

defb pe $2d $2d $2d $2d $2d $2d 

defb $ 

be $20 $2d $2d $2d $2d $2d $2d 

defb 

defb $29 $2d $2d $2d $2d $2d $2d 

defb $2d 

defb $2d $2d $2d $2d $2d $2d $2d 

defb $2d 

defb $2d $14 $05 $20 $94 $91 $28 

defb $20 

defb $20 $20 $90 $91 $20 $20 $20 


defb $20 

defb Er $91 $20 $20 $90 $91 $20 
defb $29 

defb $20 $20 $20 $20 $24 520 $90 


defb $91 

defb $20 $20 $20 $10 $07 $3d $3d 

defb $3d 

dES 124 $3d $3d $3d $3d $3d $3d 
efb 

bl e $3d $3d $3d $3d $3d $3d $3d 
e 

defb $39 $3d $3d $3d $3d $3d $3d 

defb $3d 

defb $3d $3d $3d $3d $3d $10 $04 

defb $98 

defb $20 $20 $20 $20 $20 $97 $98 

defb $29 

defb $20 $20 $97 $98 $20 $20 $20 

defb $20 

defb n $20 $20 $97 $98 $20 $20 

defb $20 


bola E $20 $20 $20 $20 $20 $ 97 

e 

defb SET $2d $2d $2d $2d $2d $2d 

defb $2d 

defb $2d $2d $2d $2d $2d $2d $2d 

defb 52d 

e da $29 $2d $2d $2d $2d $2d $2d 
efb $2d 

defb $2d $2d $2d $2d $2d $2d $2d 

defb $2d 

defb $2d $14 $46 $9a $9b $20 $20 

defb $29 

defb $97 $98 $24 $20 $97 $98 $20 

defb $95 

defb $20 $20 $95 $24 $20 $99 $9a 

defb $9b 

defb $9a $9b $240 $20 $20 $95 $20 

defb $29 

defb po $20 $99 $11 $04 $10 $500 

defb $ 

defb $30 $9d $9d $9d $9d $9d $9d 


defb $9d 

defb $9d $9d $9d $9d $9d $9d $9d 
defb $9d 

defb po $9d $9d $9d $9d $9d $9d 
defb 

defb $90 $9d $9d $9d $9d $9d $9d 


defb $11 

pta Er $20 $20 $20 $20 $20 $520 
lefb 

Ela 04 $20 $20 $20 $20 $20 $20 
els 

pd $20 $20 $20 $20 $20 $20 $20 

defb $20 $20 $20 $20 $20 $20 $20 

defb $20 $20 


63D2h 

25554 3E 02 Id a, $02 
25556 CD 81 16 call $161 
25559 11 41 61 Id de,$6141 
25562 91 91 02 Id bc,$0291 
25565 CD 3C 28 call $243C 
63EYh 

25568 3A M2 5B Id a,($5b42) 
25571 C6 39 add a,$30 
25573 32 91 64 ld ($6481),a 
25576 18 26 jr +$26 


G3EA/ 
Eso $11 $01 $10 $07 $28 $53 $43 


b $41 
defb $52 $45 $20 $16 $15 $0b $20 
defb $4d 
defb $45 $4e $20 $11 $05 $10 $509 
defb $39 


defb $11 $81 $10 $07 $20 $48 $49 
defb $2d 
defb $53 $43 $41 $52 $45 $20 


6414h 

25616 3E 02 Id a, $02 
25618 CD 41 16 call $1601 
25621 11 EA 63 ld de,$63ea 
25624 Y1 26 UU ld bc,$0026 
25627 CD 3C 20 call $203c 
641Fh 

25630 21 14 10 ld hl,5$1914 
25633 22 06 5B ld ($5b96),hl 
25636 22 08 5B ld ($5b48),hl 
6427h 

25639 3E 02 ld a, $02 
25641 CD 41 16 call $1601 
25644 3E 11 ld a,$11 
25646 D7 rst $19 
25647 3E 08 ld a,$48 
25649 D7 rst $19 
25650 3E 19 Id a,$10 
25652 D7 rst $19 
25653 3E 08 ld a,$08 
25655 D7 rst $19 
25656 3E 16 ld a,$16 
25658 D7 rst $19 
25659 3A 06 5B ld a,($5b46) 
25662 D7 rst $19 
25663 3A 07 5B ld a,($5b07) 


25666 D7 
25667 3E 20 
25669 D7 


6446h 
25670 CD 27 7E 


6449h 

25673 ED 4B 08 5B 
25677 CD 38 25 
256898 CD F1 2B 
25683 1A 

25684 F5 

25685 CD BF 16 
25688 F1 

25689 FE 20 

25691 C2 48 65 


645Eh 


25694 3A 048 5B 
25697 FE BY 
25699 CA A6 66 


6466h 

25702 3E 92 
25704 CD Yi 16 
25707 3E 11 
25709 D7 
25719 3E 48 
25712 D7 
25713 3E 14 
25715 D7 
25716 3E 08 
25718 D7 
25719 3E 16 
25721 D7 
25722 3A 48 5B 
25725 D7 


25726 3A 49 5B 
25729 D7 
25730 3E 96 
25732 D7 


6485h 
25733 2A 48 5B 
25736 22 06 5B 


648Bh 


25739 Y1 FE F7 
25472 ED 78 
25744 CB 47 
25746 20 1C 


rst $109 
la d,$20 
rst $10 


call $7e27 


ld bc, ($5b88) 
call $2538 
call $2bf1 

1d a,(de) 
push af 

call $16bf 
pop af 

cp $20 

jp nz, $6548 


Id a,($5b08) 
cp $00 
jp 2,$66a6 


ld a, $02 
call $1691 
ld a,$11 
rst $19 

ld a,$08 
rst $19 

ld a,$19 
rst $19 

Id a,$08 
rst $19 

ld a,$16 
rst $19 

Id a,($5b08) 
rst $19 


ld a,($5bB9) 
rst $19 

ld a,$96 

rst $19 


Id hl,($5bB88) 
Id ($5bM6),hl 


Id bc,$f7te 
in a,(c) 
bit V,a 
jr nz, +$1c 


113 


6494h 

25748 21 32 Bu 

25751 11 05 UU 

25754 CD B5 43 


649Dh 

25757 3A 48 5B 
25768 3D 
25761 3D 
25762 32 48 5B 
25765 2A 03 5B 
25768 23 
25769 23 
257740 23 

25771 23 
25772 23 
25773 22 03 5B 
25776 YU 
25777 3E Q2' 


25779 CD 41 16 
25782 3E 16 

25784 D7 

25785 3E 15 

25787 D7 

25788 3E 07 

25799 D7 

25791 ED 4B 83 5B 
25795 CD 2B 2D 
25798 CD E3 2D 


64C9h 

25801 91 FE EF 
25884 ED 78 
25896 CB 47 
25808 29 GE 
25819 3A M9 5B 
25813 FE 1F 
25815 28 91 


25817 3C 
25818 32 09 5B 
25821 C3 F5 64 
25824 CB 4F 
25826 20 YE 
25828 3A M9 5B 
25831 FE 00 
25833 28 91 
25835 3D 


2586 32 49 5B 
25839 C3 F5 64 


64F2h 
25842 CB 67. 
25844 CB 


64F5h 
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Id hl,$0032 
la de, $0805 
call $03b5 


ld a,($5b08) 
dec a 

dec a 

ld ($5bM8),a 
ld hl,($5b43) 
inc hi 

inc hl 

inc hi 

inc hi 

inc hl 

ld ($5b93),hI 
nop 

ld a, $02 


call $1601 

ld a,$16 

rst $19 

ld a,$15 

rst $19 

ld a, $07 

rst $19 

Id bc,($5b03) 
call $2d2b 
call $2de3 


ld bc,Setfe 
in a,(c) 

bit Va 

jr nz, +$0e 
Id a,(5$5b99) 
cp S1f 

jr z, +$01 


inca 

Id ($5b49),a 
jp $64f5 

bit 1,a 

jr nz, +$0e 
Id a,($5b09) 
cp $00 

jr z,+$801 
dec a 


Id ($5b99),a 
jp $64f5 


bit 4,a 
ret z 


25845 06 YA 
25847 11 78 QU 
25850 21 01 49 
25853 ES 
25854 D5 
25855 C5 
25856 CD B5 43 
25859 C1 
25860 D1 

25861 El 
25862 7D 

5863 3C 

25864 6F 
25865 49 
25866 19 F1 
25868 C3 27 64 


65gFh 
25871 EF 


651gh 


ld b,$Ya 

ld de,$0078 
ld hl, $0091 
push hl 
push de 
push bc 
call $03b5 
pop bc 
pop de 
pop hi 

ld a,! 

inca 

Id la 

nop 

dinz —$0f 
jp $6427 


rst $28 


defb $34 $ea $23 $d7 $Va $3d $38 


6517h 

25879 2A BY 5C 
25882 7C 
25883 95 

25884 CD 2B 2D 
25887 CD F8 93 
25899 3E 42 
25892 CD 01 16 
25895 3E 15 
25897 D7 
25898 3E 91 
25909 D7 

25991 3E 11 


25903 D7 
25904 3E 48 
25906 D7 
25907 3E 10 
25999 D7 
25918 3E 48 
25912 D7 
25913 3E 16 
25915 D7 
25916 3A B4 5C 
25919 D7 
25929 3A 08 5B 
25923 D7 
25924 3E 96 
25926 D7 
25927 C9 


6548h 
25928 3A M8 5B 


Id hl,($5cb8) 
ld a,h 

sub | 

call $2d2b 
call $031f8 
ld a, $02 
call $1681 
ld a,$15 
rst $19 

ld a,$501 
rst $19 

ld a,$11 


rst $10 

ld a,$08 

rst $19 

ld a, $19 

rst $19 

ld a,$08 

rst $19 

ld a,$16 

rst $19 

Id a,($5cb0) 
rst $19 

ld a,($5b99) 
rst $19 

ld a,$96 

rst $19 

ret 


Id a,($5b08) 


25931 32 B4 5C 
25934 86 19 
25936 78 

25937 C5 
25938 32 B1 5C 
25941 CD MF 65 
25944 CD GF 65 
25947 C1 

25948 Y4 

25949 78 

25959 FE 23 
25952 29 EF 


6562h 

25954 CD UF 65 
25957 CD GF 65 
25969 3A BY 5C 
25963 3C 

25964 3C 


25965 32 B9 5C 
25968 FE 14 
25979 20 EE 


6574h 

25972 3A 42 5B 
25975 3D 
25976 32 02 5B 
25979 3E 92 
25981 CD 91 16 
25984 3E 16 
25986 D7 
25987 3E 16 
25989 D7 
25999 3E 19 
25992 D7 
25993 3A 42 5B 
25996 C6 38 
25998 D7 


658Fh 
25999 3E 14 
26001 32 02 5B 


6594h 

26094 3A Y2 5B 
26007 A7 
260008 C2 46 64 


659Bh 

26011 AF 

26012 2A 43 5B 
26015 ED 5B 44 5B 
26019 ED 52 


26021 38 6A 


Id ($5cb8),a 
Id b,519 

ld a,b 

push bc 

ld ($5cb1),a 
call $650f 
call $650f 
pop bc 

inc b 

ld a,b 

cp $23 

jr nz,-$11 


call $659f 
call $650f 
Id a,($5cbB) 
inc a 

inc a 


ld ($5cb8),a 
cp $14 
jr nz,-$12 


Id a,($5b02) 
dec a 

ld ($5b82),a 
Id a, 502 
call $1601 
Id a,$16 

rst $19 

ld a,$16 

rst $19 

ld a,$19 

rst $19 

Id a,($5b92) 
add a,$30 
rst $19 


ld a,$14 
ld ($5b82),a 


ld a.($5b82) 


xor a 
ld hl,($5b83) 
Id de,(55b40) 
sbc hl,de 


jr c,+$6a 


65A7h 


26023 2A 03 5B ld hl,($5b83) 
26026 22 04 5B ld ($5b09),hl 
26029 ES push hi 
26030 C1 pop bc 
26031 CD 2B 2D call $2d2b 
26034 3E 82 Id a, $02 
26036 CD 91 16 call $1681 
26039 3E 16 ld a,$16 
26041 D7 rst $19 
26042 3E 15 ld a,$15 
26044 D7 rst $19 
26945 3E 1B ld a,S1b 
26047 D7 rst $19 
26048 CD E3 2D call $2de3 
26051 18 4C jr +$4c 
65C5h 


defb $12 $01 $11 $07 $16 $0c $00 
defb $20 
deíb $20 $20 $20 $20 $20 $20 $20 
defb $29 
defb $20 $20 $47 $41 $4d $45 $20 
defb $29 
defb $4f $56 $45 $52 $20 $20 $20 
defb $29 
defb $29 $20 $29 $24 $20 $29 $20 
defb $16 
defb $e $500 $12 500 $20 $20 $41 
defb $6e 
defb $6f $74 $68 $65 $72 $20 $67 
defb $61 
defb $6d $65 $28 $3f $20 $28 $79 
defb $29 
defb $65 $73 $20 $20 $28 $6e $29 
defb $6f 


defb $20 520 $20 $20 


6611h 

26129 11 C5 65 ld de,$65c5 
26132 41 4C YU ld bc,$0U4c 
26135 CD 3C 29 call $2083c 
661Ah 

26138 76 halt 

26139 FD CB 91 6E bit 5,(iy+501 
26143 28 F9 jr z,-$07 
26145 FD CB 91 AE res 5,(iy+$01 
26149 3A 4B 5C Id a,($5cgb) 
26152 FE 6E cp $6e 
26154 24 43 jr nz, +503 
26156 CD 04 08 call $0000 
26159 FE 79 cp $79 
26161 20 E7 jr nz,-$19 


6633h 


26163 3E M2 ld a, $02 
26165 CD 91 16 call $1691 
26168 3E 11 ld a,$11 
26170 D7 rst $19 
26171 3E 05 ld a, $05 
26173 D7 rst $18 
26174 3E 16 ld a,$16 
26176 D7 rst $19 
26177 3E 15 ld a,$15 
26179 D7 rst $19 
26180 3E 07 ld a,$07 
26182 D7 rst $19 
26183 3E 29 ld a,$29 
26185 D7 rst $18 
26186 3E 29 ld a, 520 
26188 D7 rst $19 
26189 3E 28 Id a,529 
26191 D7 rst $19 
26192 SE 29 Id a,$20 
26194 D7 rst $10 
26195 C3 C9 68 jp $68c9 
6656h 

defb $00 $04 $00 $04 $00 $00 Sed 
defb $Wb 


defb $ed $0b $fW $10 Sec $Ob Sec 
defb $19 
defb $ec $0b Sec $10 


666Ah 

26218 06 Y7 ld b,$07 
26228 21 5C 66 Id hl,$665c 
26223 7E ld a,(hl) 
26225 32 78 66 ld ($6678),a 
26227 23 inc hl 
26228 C5 push bc 
26229 E5 push hl 
26230 EF rst $28 
defb $34 5$ec $4c $cc $cc $cc $38 
26238 El pop hl 
26239 7E ld a,(hi) 
26248 push hi 
26241 CD 28 2D call $2d28 
26244 COD F8 43 call $038 
26247 El pop hi 
26248 C1 pop bc 
26249 23 inc hl 
26259 10 ES dinz —$1d 
26252 3E 91 ld a, $501 
26254 CD 28 2D call $2d428 
26257 3E 14 ld a,$14 
26259 CD 28 2D call $2d28 
26262 CD F8 43 call $03f8 
26265 C9 ret 

659Ah 
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defb $11 $08 $19 $08 $16 $02 $04 


deíb $29 


derb $16 $09 $84 $96 


66A6h 

26278 2A M6 5B 
26281 22 9F 66 
26284 2A 08 5B 
26287 22 A3 66 
26298 3E 02 
26292 CD M1 16 
26295 11 9A 66 
26298 Y1 UC MU 
26301 CD 3C 28 
26304 CD 6A 66 


66C3h 

26307 3A M5 5B 
26318 3C 
26311 32 45 5B 
26314 2A 93 5B 
26317 11 32 40 
26328 19 

26321 22 03 5B 
26324 ES 
26325 3E 02 
26327 CD Y1 16 
20330 3E 16 
26332 D7 
26333 3E 15 
26335 D7 
26336 3E 97 
26338 D7 
26339 C1 


26348 CD 2B 2D 
26343 CD E3 2D 


66EAh 

26346 3A M5 5B 
26349 E6 43 
26351 C2 1E 64 


66F2h 

26354 AF 
26355 3A M5 5B 
26538 FE 94 
26360 20 06 
26362 AF 
26363 32 A9 7E 
26366 18 19 


670Yh 

26368 FE 48 
26370 29 06 
26372 AF 
26373 32 C2 7E 
26376 18 UF 


Id hI,($5b06) 
Id ($669f),hl 
Id hi,($5b08) 
ld ($66a3),hl 
ld a, $82 

call $1691 
ld de,$669a 
ld bc,$4B0c 
call $203c 
call $666a 


Id a,($5b95) 
Inc a 

Id ($5b85),a 
ld hl,($5bM3) 
Id de,$0032 
add hl.de 

ld ($5b43), hi 
push hi 

ld a, 502 

call $1601 
ld a,$16 

rst $19 

ld a,$15 

rst $19 

ld a, $07 

rst $19 

pop bc 


call $2d2b 
call $2de3 


ld a,($5bM5) 
and $03 
jp nz,$641e 


xor a 
ld a,($5b45) 
cp $04 

jr nz, +506 
xor a, 

ld ($7ea9),a 
jr +$19 


cp $08 

jr nz, +$06 
xora 

ld ($7ec2),a 
jr +S0f 


679Ah 

26378 FE VC cp $0c 
26389 20 06 jr nz, +506 
26382 AF xor a 

26383 32 D5 7E Id ($7ed5),a 
26386 18 45 jr +$05 
6714h 

26388 D6 25 sub $25 
26398 D2 29 61 jp nc,$6129 
5718h 

26393 ED 4B 76 5C ld bc,($5c76) 
26397 CD 2B 2D call $2d2b 
26480 EF rst $28 
6721h 

defb Sal $0f $34 $37 516 $04 $34 
defb $80 


defb $41 $00 $04 $80 $32 $02 $al 
defb $03 $31 $38 


6733h 

26419 CD A2 2D call $2da2 
26422 ED 43 76 5C ld ($5c76),bc 
26246 79 Id a,c 
26427 EG 1F and $1f 
26429 D6 Y2 sub $02 
26431 38 M5 jr c,+$05 
6741h 

26433 3C inc a 
6742h 

26434 FE 29 cp $29 
26436 29 91 jr nz, +$01 
26438 AF xor a 
6747h 

26439 F5 push af 
26448 47 Id ba 
26441 BE YA ld c,$Ya 
26443 CD 38 25 call $2538 
26446 CD F1 2B call $2bf1 
26449 14 ld a.(de) 
26450 FS push af 


26451 CD BF 16 
26454 F1 

26455 FE 29 
26457 28 43 
26459 F1 

264698 18 ES 
26462 F1 


675Fh 
26463 3C 
26464 F5 


26465 47 

26466 UF BA 
26468 CD 38 25 
26471 CD F1 2B 
26474 1A 

26475 FS 

26476 CD BF 16 
26479 F1 

26488 FE 20 
26482 28 43 
26484 Fi 

26485 18 CA 
6777h 

26487 Fl 

26488 3D 

26489 32 82 67 
26492 18 97 


677Eh 


call $16bf 
pop af 
cp $20 
jr z, +503 
pop af 
jr —S1d 
pop af 


inc a 
push af 


ld b,a 

ld c,$Za 
call $2538 
call $2bf1 
ld a,(de) 
push af 
call $16bf 
pop af 

cp $20 

jr z,+$503 
pop af 

jr —$36 


pop af 

dec a 

ld ($6782),a 
jr +507 


defb $11 $04 $16 $Ya $19 $9e $Sof 


6785h 
26501 3E 92 


26583 CD 41 16 
26506 11 7E 67 
26509 Q1 07 UU 
26512 CD 3C 24 


6793h 
26515 CD 6A 66 


6796h 
26518 C3 29 61 


Programa “Cross (código máquina)” 


ld a,502 


call $16081 
Id de,$677e 
Id bc,$0007 
call $203c 


call $666a 


ip $6129 
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Apéndice 1 


Reemplazamiento de rutinas de la ROM 


Las rutinas en ROM de la Spectrum están escritas de forma 
que se pueda reconocer cualquier parámetro equivocado y obte- 
ner un informe del error. Por ejemplo, si intenta ingresar 
PRINT AT 24,33; “Mensaje” entonces la rutina PRINT detec- 
tará que la línea 24, columna 33 está fuera de la pantalla. 

Cuando se escriben programas en código máquina se puede 
suponer que se utilizarán siempre los parámetros correctos y 
así, las rutinas en ROM pueden reescribirse sin la detección de 
errores, etc., lo que las hace más rápidas, y pueden estar com- 
pletamente bajo el control del programador. 

Los seis programas siguientes muestran como pueden rees- 
cribirse CLS., ATTR.SET, PRINT, PLOT, UNPLOT, SCR$ y 
POINT. La rutina PRINT maneja los caracteres del 32 al 127 
inclusive (aunque podría adaptarse para imprimir cualquier ca- 
rácter) y realmente lo que hace es poner el carácter en la pan- 
talla con POKE, por lo que es innecesario emplear OPEN 
CHANNEL 2 y nos permitirá imprimir en las líneas 22 y 23. 
Las direcciones 23728/9 de las variables no usadas se emplean 
para guardar la posición actual de PRINT. 

La rutina SCR$ detecta los caracteres del 32 al 127 en las lí- 
neas de la 0 a la 21 como en la versión del BASIC, pero tam- 
bién nos permite examinar las líneas 22 y 23. Las rutinas PLOT 
y UNPLOT tienen los mismos parámetros que en el BASIC, 
con 0,0 en la esquina inferior izquierda de la línea 23. (Omi- 
tiendo las instrucciones LDA,175 en las direcciones 2374/5 
haremos que sean 0,0 en la esquina superior izquierda de la 
línea 1). Lo anterior se aplica también a la rutina POINT. La 
dirección a modificar es 23777. Verá que las rutinas PLOT, 
UNPLOT y POINT usan idénticas subrutinas FIND para en- 
contrar el pixel a examinar; por lo tanto si usase las tres ru- 
tinas podrían compartir esta subrutina y ahorrar más memoria. 
Podría aumentarse todavía más la velocidad añadiendo DI (des- 
habilitar interrupciones) al comienzo de estas rutinas, o al prin- 
cipio de su programa, y El al final (o cuando se requiera una 
llamada a KEYSCAN). Con estos programas como guía usted 
podría escribir una rutina CIRCLE (que sea más rápida que la 
de la Spectrum). 
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org 23769 


CLS (Lento) 

23760 21 00 40 Id hl,16384 
L1 

23763 36 0U ld (hl),9 
23765 23 inc hi 
23766 7C ld ah 
23767 FE 58 cp 88 
23769 20 FB jrnz, L1 


Programa Al.1 


org 23760 
LLENAR ATRIBUTOS 


EJEMPLO 
INK 2 PAPER 5 
BRIGHT 1 FLASH 1 


24+40+64+128=234 


Programa Al.2 


org 23769 

RUTINA IMPRIMIR SERIES 

SACA (CON POKE) CARACTERES A 
PANTALLA NO UTILIZA RST 16d 


DIRECCION 23728 CONTIENE COLUMNA 


DIRECCION 23729 CONTIENE LINEA 


237698 11 E4 5C ld de,DATA 
L4 

23763 1A ld a,(de) 
23764 CB 7F bit 7,a 
23766 20 06 jr nz,L3 
23768 CD 02 5D call PRINT 
23771 13 inc de 
23772 18 F5 jr La 

L3 

23774 CB BF res 7,a 
23776 CD 02 5D call PRINT 
23779 C9 ret 

DATA 


defs MCGRAW-HILL BOOK Co. 
defs (UK) Ltd 


1284+CHR 46=”," 
defb 174 
RUTINA IMPRIMIR 


OBTENER LINEA/COLUMNA EN HL 


IMPRIMIR 

23819 D5 push de 
23811 2A BY 5C ld hl,(23728) 
23814 ES push hl 
23815 F5 push af 


23771 C9 ret 
CLS (Rápido) 


23772 21 00 40 Id hl,16384 
23775 11 Y1 49 ld de, 16385 
23778 Q1 FF17 Id bc,6143 
23781 36 00 ld (hl),g 
23783 ED BY Idir 

23785 C9 ret 

23760 3E EA Id a,234 
23762 21 00 58 ld hl,22528 
23765 11 01 58 ld de,22529 
23768 Y1 FF Y2 ld bc,767 
23771 77 ld (hl),a 
23772 ED Bg Idir 

23774 C9 ret 


EXAMINAR SI SE SALE DE PANTALLA 


23816 AF xor a 
23817 7C Id ah 
23818 D6 18 sub 24 
23824 38 02 jr ¡OK 
23822 CF rst 8 
defb 4 


ENCONTRAR POSICION PANTALLA 


DE ACUERDO 

23824 11 00 40 ld de,16384 
23827 19 add hl,de 
23828 7C ld ah 
23829 E6 07 and 7 
23831 UF rrca 
23832 YF rrca 
23833 YF rrca 
23834 B5 or 1 
23835 6F ld la 
23836 3E F8 ld a,248 
23838 A4 and h 
23839 67 ld ha 


ENCONTRAR COMIENZO DE CAR. 
EN GENERADOR DE CAR. 


23849 F1 pop af 
23841 ES push hi 
23842 11 04 3C ld de,15369 
23845 6F ld l,a 

23846 26 00 ld hg 
23848 29 add hl,hl 
23849 29 add hl,hl 
23850 29 add hl,hl 
23851 19 add hl,de 


23852 D1 pop de 


SACAR CAR. A PANTALLA (CON POKE) 


23853 46 08 
11 

23855 7E 
23856 12 


23857 23 
23858 14 
23859 19 FA 


Programa A1.3 


org 23769 


ld b,8 


Id a,(hI) 
ld (de),a 


inc hl 
inc d 
dinz L1 


PROGRAMA PARA REEMPLAZAR 
SCREENS REQUIERE M=LINEA, 


L=COLUMNA 


VUELVE CON EL REGISTRO A 
CONTENIENDO EL CODIGO CAR. 
O £ SI CAR. NO SE ENCUENTRA 


23768 26 BA 
23762 2E 07 
23764 CD D8 5C 
23767 C9 


RUTINA SCREENS 
SCR$ 


ld h,19 

ld 1,7 

call SCR$ 
ret 


ENCONTRAR DIRECCION DE PANTALLA 


DE CAR. 


23768 11 00 49 


23771 19 
23772 7C 
23773 EG 07 
23775 YE 
23776 QF 
23777 UF 
23778 B5 
23779 6F 
23780 3E F8 
23782 A4 
23783 67 


ld de,16384 


add hl,de 
ld a,h 
and 7 
rrca 
rrca 
rrca 

orl 

Id l,a 

ld a,248 
and h 
ld ha 


EXAMINAR CAR. CON GENE. DE CAR. 


23784 11 00 3D 
L3 


23787 06 48 
23789 UE YY 


Programa Al.4 


120 


ld de,15616 


ld b,8 
Id c,g 


ACTUALIZAR POSICION DE PANTALLA 


23861 Et 
23862 2C 
23863 CB 6D 
23865 28 03 
23867 CB AD 
23869 24 

2 

23879 22 BY 5C 
23873 D1 
23874 C9 


pop hi 
inc | 
bit 5.1 
jr z,L2 
res 5,1 
inc h 


ld (23728), hl 
pop de 
ret 


EXAMINAR SI DE=16384 


23791 CB 72 
23793 28 11 


23795 ES 

La 

23796 1A 
23797 BE 
23798 29 91 
23800 0C 

L1 

23891 13 
23802 24 
23803 18 F7 
23805 El 
23806 CB 59 
23808 28 Y4 
23810 18 E7 
NENCONTRAR 
23812 AF 
23813 C9 


CONVERTIR A CODIGO 


ENCONTRAR 


23814 B7 
23815 21 40 3C 
23818 EB 
23819 ED 52 
23821 M6 03 
L4 

23823 CB 1C 
23825 CB 1D 
23827 10 FA 
23829 7D 
238340 3D 
23831 C9 


bit 6,d 
jr nz, NFOUND 


push hl 


ld a,(de) 
cp (hi) 
jr nz,L1 
inc C 


inc de 

inc h 

dinz L2 

pop hl 

bit 3,c 

jr nz, ENCONTRAR 
jr L3 


xor a 
ret 


CAR. 


ora 
Id hl,15369 
ex de,hl 
sbc hl,de 
ld b,3 


rh 

rr 
dinz L4 
ld a,! 
dec a 
ret 


org 23768 
PROGRAMA PARA REEMPLAZAR 
PLOT de ROM 

REQUIERE H=y, L=x 

23760 26 08 Id h,g 
23762 2E SF ld 1,95 
23764 CD D8 5C call PLOT 
23767 C9 ret 

PLOT 

23768 CD DE 5C call FIND 
23771 B6 or (hl) 
23772 77 ld (h),a 
23773 C9 ret 


ENCONTRAR BIT DE PANTALLA 
VOLVER CON HL=BYTE, A=BIT 


ENCONTRAR 

23774 3E AF ld a,175 
23776 94 sub h 
23777 67 ld ha 
23778 11 00 49 ld de,16384 
23781 7D Id a,! 
23782 E6 Y7 and 7 
23784 F5 push af 
23785 7D ld al 
23786 E6 F8 and 248 
23788 1F rra 
23789 1F rra 
Programa Al.5 

org 23769 


PROGRAMA PARA REEMPLAZAR 
PLOT OVER 1 DE ROM 
REQUIERE H=y, L=x 


23760 26 00 ld h,g 

23762 2E 5F Id 1,95 

23764 CD D8 5C call PLOTOVER 
23767 C9 ret 

PLOTOVER 

23768 CD DE 5C call ENCONTRAR 
23771 AE xor (hl) 

23772 77 ld (hl),a 

23773 C9 ret 


ENCONTRAR BIT PANTALLA 
VOLVER CON HL=BYTE, A=BIT 


ENCONTRAR 

23774 3E AF ld a,175 
23776 94 sub h 
23777 67 ld ha 
23778 11 08 49 ld de, 16384 
23781 7D ld al 


23799 1F 
23791 5F 
23792 7C 
23793 E6 38 
23795 17 
23796 17 
23797 B3 
23798 5F 
23799 7C 
23800 E6 07 
23802 B2 
23893 57 


23804 7C 
23845 E6 CU 
23807 1F 
23808 1F 
23899 1F 
23810 B2 
23811 57 
23812 F1 
23813 2E 89 
11 

23815 A7 
23816 FE 00 
23818 28 45 
23820 CB 1D 
23822 3D 
23823 18 F6 
L2 

23825 7D 
23826 EB 
23827 C9 


23782 E6 07 
23784 F5 
23785 7D 
23786 ES F8 
23788 1F 
23789 1F 
23790 1F 
23791 5F 
23792 7C 
23793 E6 38 
23795 17 
23796 17 
23797 B3 
23798 5F 
23799 7C 
23804 ES 97 
23802 B2 


23803 57 
23804 7C 
23805 EG CU 
23807 1F 
23808 1F 
23899 1F 
23810 B2 


rra 
ld e,a 
ld a,h 
and 56 
rla 

rla 
ore 

ld e,a 
ld a,h 
and 7 
orq 

ld d,a 


ld a,h 
and 192 
rra 

rra 

rra 

or d 

ld d,a 
pop af 
ld 1,128 


and a 
cp 
jr z,L2 
ri 
dec a 
jr Li 


ld al 
ex de,hl 
ret 


and 7 
push af 
ld al 
and 248 
rra 

rra 

rra 

ld ea 
ld a,h 
and 56 
rla 

rla 

ore 

ld ea 
ld ah 
and 7 
or d 


ld d,a 
ld ah 
and 192 
rra 

rra 

rra 

ord 


121 


23811 57 ld d,a 


23812 F1 pop af 
23813 2e 89 ld 1,128 
11 

23815 A7 and a 
23816 FE 00 cp gy 
23818 28 45 jrz,L2 


Programa A1.6 


org 23768 

PROGRAMA PARA 
REEMPLAZAR POINT DE ROM 
REQUIERE H=y, L=x 


23768 26 0u Id h,g 

23762 2E 5F ld 1,95 

23764 CD D8 5C call POINT 
23767 C9 ret 

POINT 

23768 CD EA 5C call ENCONTRAR 
23771 A6 and (hl) 

23772 C8 ret z 

23773 3E 91 ld a,1 

23775 C9 ret 


ENCONTRAR BIT PANTALLA 
VOLVER CON HL=BYTE, A=BIT 


ENCONTRAR 

23776 3E AF ld a,175 
23778 94 sub h 
23779 67 ld ha 
23780 11 00 49 ld de, 16384 
23783 7D ld a,! 
23784 E6 07 and 7 
23786 F5 push af 
23787 7D ld a,! 
23788 E6 F8 and 248 
23790 1F rra 
23791 1F rra 
23792 1F rra 


Programa Al.7 


122 


23828 CB 1D 
23822 3D 
23823 18 F6 
L2 


23825 7D 
23826 EB 
23827 C9 


23793 5F 
23794 7C 
23795 E6 38 
23797 17 
23798 17 
23799 B3 
23800 5F 
23801 7C 
23802 E6 07 


23804 B2 
23845 57 
23806 7C 
23807 E6 CY 
23889 1F 
23819 1F 
23811 1F 
23812 B2 
23813 57 
23814 F1 
23815 2E 80 
L1 

23817 A7 
23818 FE YU 
23828 28 45 
23822 CB 1D 
23824 3D 
23825 18 F6 
L2 


23827 7D 
23828 EB 


23829 C9 


rr 
dec a 
jr 11 


ld a,! 
ex de,hl 
ret 


ld ea 
ld a,h 
and 56 
rla 

rla 
ore 

ld e,a 
ld ah 
and 7 


ord 

ld d,a 
ld a,h 
and 192 
rra 

rra 

rra 

or d 

ld d,a 
pop af 
ld 1,128 


and a 
cpu 
jr z,L2 
rr 
dec a 
jrLa 


ld a! 
ex de hl 


ret 


Apéndice 2 
Listados del código máquina de la Spectrum (Z80) 


NOTAS: (HL)—el número contenido en la dirección a la que apunta el par de registros HL 
NN se ingresa con el segundo número primero, ejemplo, 4000 se ingresa 0040 (en hex.) 
Registro A——el acumulador de propósito-general 


Decimal Bytes Hex  Nemotécnico Descripción 
g 1 00 ce No operación 
1 3 1 Idbe,NN Cargar BC con NN 
2 1 $92 Id (bc),a Guardar A en (BC) 
3 1 93 inc be Incrementar BC en 1 
4 1 $4 incb Incrementar B en 1 
5 1 95 dec b Decrementar B en 1 
6 2 96 Id b,N Cargar B con N 
7 1 97 rlca Rotación circular izquierda de A 
8 1 88 exaf, af Poner en activo primer AF 
9 1 29 add hl,be BC+HL>HL 
19 3 YA Id a(bc) Cargar A con número en localización (BC) 
11 1 VB dec be Decrementar BC en 1 
12 1 BC ince Incrementar C en 1 
13 1 VD dece Decrementar C en 1 
14 2 VE Idc,N Cargar C con N 
15 1 YF rrca Rotación circular derecha de A 
16 2 18 djnz x Decrementar By JR siB X0,+0-—x 
17 3 11 Id de,NN Cargar DE con NN 
18 1 12 Id(de),a Guardar A en (DE) 
19 1 13 inc de Incrementar DE en 1 
29 1 14 incd Incrementar D en 1 
21 1 15 dec d Decrementar D en 1 
22 2 16 Idd,N Cargar D con N 
23 1 17 rla Rotación izquierda de A a través del acarreo 
24 2 18 jrx Salto relativo incondicional, + o —x 
25 1 19 add hl, de DE+HL—>HL 
26 3 14 ld a,(de) Cargar A con localización (DE) 
27 1 1B dec de Decrementar DE en 1 
28 1 1C ince Incrementar E en 1 
29 1 1D dec e Decrementar E en 1 
38 2 1E Ide,N Cargar E con N 
31 1 1F rra Rotar A a derecha a través del acarreo 
32 2 29 ¡rnz,x Salto relativo si no-cero, + 0 —x 
33 3 21 Id hINN Cargar HL con NN 
34 3 22 Id(NN),hl Guardar HL en localización NN 
35 1 23 inc hi Incrementar HL en 1 
36 1 24 inch Incrementar H en 1 
37 1 25 dec h Decrementar H en 1 
38 2 26 Idh,N Cargar H con N 
39 A 27 daa Ajuste decimal de A 
49 2 28 jrz,x Salto relativo si cero + o —x 
41 1 29 add hl hi HL+HL->HL . 
42 3 2A Id hl (NN) Cargar HL con localización (NN) 
43 1 2B- dec hi Decrementar HL en 1 
44 1 2C incl Incrementar L en 1 
45 1 2D dec 1 Decrementar L en 1 
46 2 2E Id 1N Cargar L con N 
47 1 2F' cpl Complementar A (comp. en 1) 
48 2 38 jrnc, x Salto relativo si no acarreo, + o —x 
49 3 31 Id sp,NN Cargar puntero pila con NN 
50 3 32 Id(NN),a Guardar A en localización NN 
51 1 33 inc si Incrementar SP en 1 
52 al 34 inc (hD Incrementar (HL) en 1 
53 1 35 dec(hl) Decrementar (HL) en 1 
54 2 36 Id (hl),N Guardar N en (HL) 
55 1 37 sef Poner a 1 bandera de acarreo 
56 2 38 jrc, x Salto relativo si acarreo, + o —x 
57 1 39 add hl,s SP+HL>HL 
58 3 3A Id a,(NÑN) Cargar A con localización (NN) 
59 1 3B dec sp Decrementar SP en 1 
68 1 3C inca Incrementar A en 1 
61 3 3D dec a Decrementar A en 1 
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Decimal Bytes Hex  Nemotécnico Descripción 

62 2 3E IdajN Cargar A con N 

63 pl 3F ccf Complementar bandera de acarreo 

64 1 49 Id b,b Mover Ba B 

65 1 41 lIdb,e Mover Ca B 

66 1 42 Idb,jd Mover Da B 

67 1 43 Id b,e Mover Ea B 

68 1 44 Id b,h Mover Ha B 

69 1 45 Id b,1 Mover La B 

70 1 46 Id b,(hl) Mover (HL) a B 

mT 1 47 Idb,a Mover A a 

712 1 48 Id c,b Mover Ba C 

73 1 49 ldc,e overCaC 

74 1 4A ldc,d MoverDaC 

75 1 4B Id c,e MoverEaC 

76 1 4C Ideh MoverHaC 

7 1 4D ld c,l Mover LaC 

78 1 4É Id c,(h)) over (HL) a C 

79 1 4F' Idca overAaC 
88 1 58 Id db MoverBaD 

81 1 51 Id d,e MoverCa D 

82 1 52 Id d,d MoverDaD 

83 1 53 Id d,e MoverEaD 

84 1 54 Id d,h Mover Ha D 

85 1 55 Id d,l Mover La D 

86 1 56 1d d,(hl) Mover (HL) a D 

87 1 57 Id d,a Mover A aD 

88 1 58 Ide,b Mover Ba E 

89 1 59 Id esc MoverCa E 

%w 1 5A Id e,d Mover Da E 

91 1 5B Id e,e Mover Ea E 

92 1 5C Id e,h Mover Ha E 

93 1 5D Id el Mover La E 

94 1 5E ld e,(hl) Mover EL E 

95 1 5F ld ea Mover A a 

96 1 69 Id h, Mover Ba H 

97 0 61 Idh,e Mover C a H 

98 1 62 Id h,d Mover Da H 

99 1 63 Id h,e Mover Ea H 
109 1 64 Idh,jh Mover H a H 
191 1 65 Idh,l Mover L a H 
192 1 66 Id h,(hl) Mover Los H 
103 1 67 Id haa Mover Aa 

194 1 68 1d 1,b Mover Ba L 
105 1 69 Idle Mover Ca L 
106 1 6A Id 1,d Mover Da L 
197 1 6B Id le Mover E a L 
198 1 6C Id 1,h Mover Ha L 
199 1 6D 1d 1, Mover La L 
119 1 6É Id 1,(hl) Mover 4L,a L 
111 1 6F' Id la Mover Aa 

112 1 76 1d (hl),b Mover B a (HL 
113 1 71 Id (hD,c Mover C a (HL 
114 1 72 Id(hl),d Mover D a (HL 
115 1 73 EN ,e Mover E a (HL 
116 1 74 1d (nh), h Mover H a (HL 
117 1 75 Id (hb,] Mover L a (HL) 
118 1 76 halt PARAR 
119 1 77 1d (hl),a Mover A a gulo 
129 1 78 2,b Mover Ba 

121 1 79 Id a,e MoverCaA 
122 1 TA a, MoverDaA 
123 1 7B a,e MoverEaA 
124 1 7C a,h MoverHa A 
125 1 7D sl MoverLaA 
126 1 7E Ida,hb Mover (HL) a A 
127 1 TF Ida,a MoverAaA 
128 1 89 add a,b B+A>A 
129 1 81 add a,c C+ASA 
138 1 82 add a,d D+A>A 
131 1 add a,e E+A>SA 
132 1 84 add a,h H+A=>A 
133 1 85 add a,l L+A>A 

134 1 86 add a,(hl) (HL) +A>A 
135 1 87 d a,a A+AS>A 
136 1 88 ade a,b B+A + acarreo > A 
137 1 89 adc a,c C+A + acarreo> A 
138 1 8A ade a,d D+A + acarreo > A 
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Decimal Bytes Hex  Nemotécnico Descripción 
139 1 8B adc, a,e E +A + acarreo> A 
149 1 8C adc, a,h H+A + acarreo > A 
141 1 8D adc, a, L+A + acarreo > A 
142 1 8E adc a,(hl) (HL) + A + acarreo > A 
143 1 8F adc a,a A+A + acarreo > A 
144 Jl sub b A-B>A 
145 1 91 sube A-C>A 
146 1 92 subd A-D>A 
147 1 sub e A-E>A 
148 1 94 subh A-H>A 
149 1 95 subl A-L>A 
158 l 96 sub (hl) A -(HL)>A 
151 1 97 suba A-A>r 
152 1 98 sbc a,b A-—B- acarreo> A 
153 1 sbe a,e A — C -— acarreo > A 
154 L 9A sbce a,d A — D — acarreo > A 
155 1 9B sbea,e A — E -— acarreo > A 
156 1 9C sbe a,h A — H -— acarreo > A 
157 1 9D sbe a,l A — L— acarreo > A 
158 1 YE sbc a,(h)) A — (HL) — acarreo > A 
159 1 9F' sbc aa A-— A -—acarreo> A 
160 1 AS and b AyB>A4A 
161 1 Al ande AyC>A 
162 1 and d AyD>A 
163 1 A3 ande AyE=>A 
164 1 A4 and h AyH>A 
165 1 A5 and] AyL>A 
166 1 A6 and (h)) Ay(HL)>A 
167 1 A7 anda AyYA>sA 
168 1 A8 xor b A exclusivo oB => A 
169 1 A9 xore A exclusivo oC => A 
179 1 AA xor d A exclusivo o D> A 
171 1 AB xore A exclusivoo E => A 
172 1 AC xor h A exclusivo o H > A 
173 1 AD xorl A exclusivo o L> A 
174 1 AE xor (hl) A exclusivo o (HL) > A 
175 1 AF xora A exclusivo o A > A 
176 1 B9 orb Ao0B>A 
177 1 Bl ore A0C>A 
178 1 B2 ord Ao0oD>A 
179 1 B3 ore A0E>A 
180 1 B4 orh A0H>A 
181 1 B5 orl AoL>A 
182 1 B6 or (hl) Ao(HL)>A 
183 1 B7 ora AO0A>A 
184 1 B8 cpb Comparar A:B 
185 1 B9 cpe Comparar A:C 
186 1 BA cpd Comparar A:D 
187 1 BB cpe Compare A:E 
188 1 BC cph omparar A:H 
189 d BD e Comparar A:L 
19 1 BE cp (hD Comparar A:(HL) 

191 1 BF cpa Comparar A: 

192 1 C8 ret nz Volver si no-cero 

193 1 C1 pop be Sacar BC de la pila 

194 3 C2 jp nz, NN Saltar a NN si no-cero 

195 3 C3 JpN Salto incondicional a NN 

196 3 C4 call nz, NN Llamada NN si no-cero 

197 1 C5 push be Poner BC en la pila 

198 2 C6 add a,N A+N>A 

199 1 C7 rst 8 Llamada 0000 rutina de inicio 
200 1 C8 ret z Volver si cero 

291 1 C9 ret Volver 

202 3 CA jpz,NN Saltar a NN si cero , 
203 CB Ver grupo especial de rutinas CB 
204 3 CC call z,NN Llamada NN si cero 

205 3 CD call NN Llamada NN 

206 2 CE ade a,N A+N + acarreo > A 

207 1 CF rst 8 Llamada 0008 rutina de error 
208 1 D8 ret nc Volver si acarreo = 0 

209 1 D1 pop de Sacar DE de la pila 

210 3 D2 jp ne,NN Saltar a NN si acarreo = 0 
211 2 D3 out (N)a Sacar A al puerto N 

212 3 D4 call ne,ÑN Llamada a NN si acarreo = 0 
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do 


E 


UNA nh 


A a TE TNT O 


mb 


Nemotécnico 


push de 


D6 sub N 


rst 16 
ret e 
exx 


jp m,NN 

el 

E m,NN 

prefija instrucciones 
utilizando iy 

cp N 

rst 56 


Descripción 
Mater DE en la pila 


-N> 
Llamada 0010 rutina de impresión 
Volver si acarreo = 1 
Poner en activo primer B-F (registros de 
intercambio) 
Saltar a NN si acarreo = 1 
Ingresar A desde el puerto N 
Llamada NN si acarreo = 1 


Ver conjunto especial de rutinas DD 
A — N — acarreo > A 
Llamada 0018 rutina de carácter (1) 

Volver si bandera de “overflow”/paridad = 0 
Sacar HL de la pila i 

Saltar a NN si bandera de “overflow”/paridad = 0 
Intercambiar (SP) y HL 

Llamada NN si bandera de “overflow”/paridad = 
Poner HL en la pila 

AyN>A 

Llamada 0020 rutina de carácter (2). 

Volver si bandera de “overflow”/paridad = 1 
Saltar a localización (HL) 

Saltar a NN si bandera de “overflow”/paridad = 1 


Intercambiar DE y HL 
pe NN si bandera de “overflow”/páridad = 


Ver conjunto on de rutinas ED 
A exclusiva o N > A 

Llamada 0028 rutina de calculadora 
Volver si bandera de signo = 0 

Sacar AF de la pila 

Saltar a NN si bandera de signo = 0 
Deshabilitar interrupciones 

Llamada NN si bandera de signo = 0 
Poner AF en pila 

AoN=A. , . 

Llamada 0030 rutina de espacio de trabajo 
Volver si bandera de signo = 1 

Mover HL a SP 

Saltar a NN si bandera de signo = 1 
Habilitar interrupciones 

Llamada a NN si bandera de signo = 1 


Ver conjunto nl de rutinas FD 
Comparar A : 
Llamada 0038 
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DD 09 

DD 19 

DD 21 +dddd 
DD 22 addr 
DD 23 

DD 29 

DD 2A addr 
DD 2B 

DD 34d 
DD 35d 
DD 36 d +dd 
DD 39 

DD 46d 
DD 4E d 
DD 56d 
DD 5E d 
DD 66d 
DD 6Ed 
DD70d 
DD71d 
DD 72d 
DD73d 
DD74d 
DD75d 
DD 77d 
DD7Ed 


DD 8Ed 
DD 96 d 
DD 9%E d 
DD A6d 
DD AE d 
DD B6d 
DD BE d 


ADD 
ADD 
LD 
LD 
INC 
ADD 
LD 
DEC 


ADC 
SUB 
SBC 
AND 
XOR 
OR 
CP 


IX,BC 
IX,DE 
IX, +dddd 
(addr), IX 
IX 

IX,IX 
IX,(addr) 
IX 
(IX+d) 
(IX+d) 
(IX+d),+dd 
IX,SP 
B,1X+d) 
C,A1X+d) 
D,(IX+d) 
E,(IX+d) 
H,1X/+d) 
L,(IX+d) 
(IX 4d),B 
(1X+d),C 
(IX+d),D 
(IX+d),E 
(IX+d),H 
(IX +d),L 
(IX+d),A 
A,(1X+d) 
A,(1X+d) 
A,AX+d) 
(IX+d) 
A,(IX+d) 
(IX+d) 
(1X+d) 
(IX+d) 
(IX+d) 


DD CB d06 

DD CB d0E 
DD CB d 16 

DDCBd1E 

DD CB d 26 

DD CB d 2E 
DD CB d 3E 
DD CB d 46 

DD CB d 4E 
DD CB d 56 

DD CB d5E 
DD CB d 66 

DD CB d 6E 
DDCBd76 

DDCBd7E 
DD CB d 86 

DD CB d8E 
DD CB d 96 

DD CB d 9E 

DD CB d A6 
DDCB d AE 
DD CB d B6 
DD CB d BE 
DD CB dC6 
DDCBdCE 
DD CB d D6 
DD CB dDE 
DD CB dE6 
DD CB d EE 
DD CB dF6 

DD CB d FE 
DD El 

DD E3 

DD E5 

DD E9 

DD F9 


(IX+d) 

(1X+d) 

(1X+d) 

(IX +d) 

(IX+d) 

(IX+d) 

(IX+d) 

0,(1X+d) 
1,1X+d) 
2,(1X+d) 
3,(IX+d) 
4,(1X+d) 
5,(1X+d) 
6,(IX+d) 
7,(1X+d) 
0,A1X+d) 
1,1X+d) 
2,(IX+d) 
3,(IX+d) 
4,(IX+d) 
5,(IX+d) 
6,(IX+d) 
7,(1X+d) 
0,1X+d) 
1,(1X+d) 
2,A1X +d) 
3,1X+d) 
4, (IX+d) 
5,(1X+d) 
6,1X+d) 
7,(1X+d) 
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Instrucciones ED 


ED73 
(addr),DE | (addr),HL | (addr),SP 


ED5B ED6B 
LD LD 
DE, (addr) | HL,(addr) | SP,(addr) 
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Apéndice 3 


Tabla de conversión decimal-hexadecimal 


Decimal 0-255  Hexadecimal 00—FF, byte bajo 


jo] 
8 


0 00 192 e) -64 
1 01 193 Cl -63 
2 02 194 C2 -62 
3 03 195 C3 —61 
4 04 196 Ca -60 
5 05 133 85 197 C5 -59 
6 06 70 46 134 86 -122 198 C6 -58 
7 07 71 47 135 87 -121 199 C7 -57 
8 08 72 48 136 88 -120 200 C8 56 
9 09 73 49 137 89 -119 201 C9 —55 
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Decimal 0-65 280 Hexadecimal 00-FF, byte alto 


Decimal 
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160 
162 


Literales de calculadora útiles 


Función 
EXCHANGE 
SUBTRACT 
MULTIPLY 
DIVIDE 
ADD 

SIN 

COS 

TAN 

INT 

SQR 


DUPLICATE 
STK 
END 


RESTACK 


0 

1 
EA 
Tr/2 
10 


Acción 


Intercambiar los dos valores 
superiores 

El valor superior es restado del 
de abajo 

Multiplicar los dos valores 
superiores 

El valor superior es dividido 
por el de debajo 

Sumar los dos valores 
superiores 

Seno del valor superior 
Coseno del valor superior 
Tangente del valor superior 
Entero del valor superior 

Raíz cuadrada del valor 
superior 

Se duplica el valor superior y se 
pone en la parte superior de la 
pila 

Apilar datos almacenados en 
forma comprimida 

(ver Capítulo 7) 

Terminar rutina de calculadora 
y volver al programa en código 
máquina 

Reemplazar valor superior por 
su forma de coma flotante 
Apilar 0 

Apilar 1 

Apilar 1, 

Apilar 7/2 

Apilar 10 
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Apéndice 6 
Programa de despedida 


Para aquellos de ustedes que quieran desmenuzar programas 
para ver como funcionan, la cinta contiene un programa en có- 
digo máquina llamado PROBLEM. El objeto del programa es 
demostrar el hecho de que la Spectrum puede ejecutar la rutina 
en código máquina, a la vez que el programador tiene un con- 
trol completo del BASIC. 

Cuando se cargue, la computadora visualizará un mensaje de 
derecho de copia en la parte superior derecha de la pantalla. 
Este mensaje de derecho de copia permanecerá constantemente 
en pantalla. Su problema es averiguar cómo se consigue esto, y 
cambiar el mensaje sin que se descontrole la Spectrum y sin 
utilizar NEW. 

El programa está pensado de tal forma que sea imposible ob- 
tener un listado útil, y tiene varias características que hacen di- 
fícil seguir la pista del código máquina. 

Si consigue modificar con éxito el mensaje y desensamblar la 
rutina, verá que le abre una nueva área de posibilidades de pro- 
gramación. Buena suerte. 


o 1983 McGraw-Hill 


Este programa demuestra que la SPECTRUM es ca- 
paz de hacer dos cosas a la vez 
El mensaje de derecho de copia es “permanente” 


MACIAS : Quitar el mensaje. Hacerlo sin que se 


descontrole la computadora y sin NEW. 


Usted tiene control completo sobre el BASIC y sobre 
cerca de 5K de RAM. Puede analizar el listado, 
LOAD, SAVE, MERGE e incluso el programa existente 
e insertar el suyo. 


MESS : Valor normal de | = 62d. 
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10 RANDOMIZE USR (PEEK (PEEK 23 
627+256*PEEK 23628+1) +(256'PEEK (PEEK 
23627+256*PEEK 23628+2)))) 

20 CLEAR 29109 

30 PRINT AT 2,0; "Este programa demuestra 
que la SPECTRUM es capaz de hacer dos cosas 
a la vez.” "El mensaje de derecho de copia es 
"permanente" 

35 PRINT 

40 PRINT "PROBLEMA: Quitar el mensaje.” 


Programa “Problem” 
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"Hacerlo sin que se descontrole la computadora y 
sin NEW” 

50 PRINT 

64 PRINT "usted tiene control completo sobre el 
BASIC y sobre cerca de 5K de RAM. Puede anali- 
zar el listado, LOAD, SAVE, MERGE e incluso el 
programa existente, e insertar el suyo. 

70 PRINT "PISTA : Valor normal de | = 620” 

88 STOP 

99 LOAD "“CODE : GO TO 18 


OTRAS OBRAS DE INTERES PUBLICADAS POR 
OSBORNE/McGRAW-HILL 


BERMAN: Explorando el BASIC en el COMMODORE 64. 
CASTLEWITZ: Introducción al VisiCalc. 

DITLEA: Guía de Software para microcomputadoras. 

ERICKSON: Telecomunicaciones con el C-64. 

ERICKSON: Telecomunicaciones con el MACINTOSH. 

ETTLIN: Manual de MBASIC. 

ETTLIN: Introducción al Wordstar. 

FLAST: 1-2-3 RUN. 41 aplicaciones prácticas Lotus 1-2-3. 

FLAST: 54 aplicaciones del VisiCalc. 

FOX: BASIC básico. Guía para principiantes. 

HEILBORN: Commodore 64. Guía del usuario. 

HEILBORN: Programas para ciencias e ingeniería. Edición Apple !l. 
HEILBORN: VIC 20. Guía del usuario. 

HOFFMAN: Sistema operativo MS-DOS. Guía del usuario. 

HOGAN: Sistema operativo CP/M. Guía del usuario (2.* ed.). 
JEFFRIES: Commodore 64. Pasatiempos y juegos. 

KRUGLINSKY: Guía a las comunicaciones del IBM/PC. 

MOTTOLA: Programación en lenguaje ensamblador para el Apple !!. 
OSBORNE: Guía del comprador de sistemas de gestión. 

OSBORNE: Guía del ordenador personal PET/CBM. 

POOLE: Algunos programas de uso común en BASIC. 

POOLE: A/gunos programas de uso común en BASIC. Edición Apple ll. 
POOLE: A/gunos programas de uso común en BASIC. Edición Atari. 
POOLE: A/gunos programas de uso común en BASIC. Edición IBM. 
POOLE: A/gunos programas de uso común en BASIC. Edición PET/CBM. 
POOLE: Algunos programas de uso común en BASIC. Edición TRS-80. 
POOLE: A/gunos programas de uso común en Pascal. 

POOLE: Apple ll. Guía del usuario. 

POOLE: Programas prácticos en BASIC. 

POOLE: Programas prácticos en BASIC. Edición Apple !l. 

POOLE: Programas prácticos en BASIC. Edición IBM. 

POOLE: Programas prácticos en BASIC. Edición TRS-80. 

POOLE: Programas prácticos en Pascal. 

SAND: Pascal avanzado. Técnicas de programación. 

SACHS: El IBM/PC. 

STEWART: Juegos y programas educativos para C-64. 

THOMAS: Sistema operativo UNIX. Guía del usuario. 

WAITE: Introducción al procesamiento de palabras. 

TOWNSEND: Aplique el dBASE ll. 

FIELD: Aplique el MacWhite y MacPaint. 


DISCOGUIAS PUBLICADOS POR OSBORNE/McGRAW-HILL 


GIFFOD: Discoguía para Apple ll. 

INGRAHAM: Discoguía para CP/M. 

JOYANES: Discoguía para ZX SPECTRUM (TS 2068). 
TAYLOR: Discoguía para Atari 400/800. 

WILSON: Discoguía para IBM/PC. 

WILSON: Discoguía para VisiCalc. 


OTRAS OBRAS DE INTERES PUBLICADAS POR 
BYTE-BOOKS/McGRAW-HILL 


ABELSON: LOGO para Apple ll. 

ABELSON: Apple Logo. 

BOWLES: Introducción al UCSD Pascal. 

CIARCIA: Construya una computadora basada en el Z-80 (Guía de diseño y 
funcionamiento). 

CURTIS: WORDSTAR en el IBM/PC. 

DUFF: Introducción al MACINTOSH. 

GABY: Gosubs. 100 subrutinas de uso común para el ZX-81 (TS 1000). 

KAMINS: Usted y la microcomputadora. (Una introducción humanizada a la 
microinformática.) 

KOLVE: Guía para seleccionar y adquirir su microcomputador. 

LEWART: Programas de ciencias e ingeniería para microcomputadoras Sin- 
clair ZX-81 compatibles con el ZX Spectrum. 

MORGAN: Introducción al microprocesador 8086/8088 (16 bit). 

MULLISH: Sinclair ZX-81 (TS 1000). Guía del usuario. 

MULLISH: Applesoft BASIC. Guía para principiantes. 

PECKHAM: BASIC para Apple ll. Manual práctico. 

PECKHAM: BASIC para Commodore 64. Manual práctico. 

PECKHAM: BASIC para IBM. Manual práctico. 

PECKHAM: BASIC para TRS-80 color. Manual práctico. 

SIKONOWIZ: Introducción al IBM/PC. 

WATT: Aprendiendo con LOGO. 

SKIER: Programación en lenguaje ensamblador para VIC-20 y COMMODORE 64. 


OTRAS OBRAS DE INTERES PUBLICADAS POR McGRAW-HILL 


ADAMIS: MACINTOSH. Aplicaciones de MULTIPLAN y MacPaint. 

ADAMIS: Diccionario BASIC. 

ADAMIS.: Diccionario BASIC del IBM/PC. 

ADAMIS: Fórmulas y programas usuales en BASIC. 

ADAMIS: Iniciación al BASIC del IBM/PC. 

BISHOP: ZX Spectrum (TS 2068). Teoría y proyectos de interfase. 

BUFFINGTON: Su primera computadora: cómo comprarla y utilizarla. 

GOSLING: Programación estructurada. 

HURLEY: Introducción a la programación ZX-81 (TS 1000). 

HURLEY: ZX Spectrum (TS 2068). Introducción al procesamiento de textos. 

HURLEY: ZX Spectrum (TS 2068). Programación para jóvenes programa- 
dores. 

PHILLIPS: Programando el Dragón. Juegos y gráficos. 

STREET: ZX Spectrum (TS 2068). Técnicas de procesamiento de la informa- 
ción. 

WILLIAMS: ZX Spectrum (TS 2068). Diseño y programación de juegos. 

WOODS: ZX Spectrum (TS 2068). Programación en lenguaje ensamblador. 

NICHOLLS: ZX Spectrum (TS 2068). Programación de juegos en lenguaje en- 
samblador. 


